home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 39.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 35 3a 31 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:05:15 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 75 |s-20.3/l|isp/w3/u|
|000000a0| 72 6c 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |rl.el.;;|; emacs |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 30 2e 34 20 22 45 6d |version |20.4 "Em|
|000000c0| 65 72 61 6c 64 22 20 58 | 45 6d 61 63 73 20 20 4c |erald" X|Emacs L|
|000000d0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000e0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 32 35 20 |mp versi|on 2.25 |
|000000f0| 58 45 6d 61 63 73 3b 20 | 32 32 2d 4d 61 72 2d 39 |XEmacs; |22-Mar-9|
|00000100| 36 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |6..;;; o|ptimizat|
|00000110| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000120| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000130| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000140| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000150| 73 20 31 39 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 19...(|if (and |
|00000160| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000170| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000180| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000190| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|000001a0| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on).. |
|000001b0| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 | (strin|g-lessp |
|000001c0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 32 |emacs-ve|rsion "2|
|000001d0| 30 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |0"))). | (error|
|000001e0| 20 22 60 75 72 6c 2e 65 | 6c 27 20 77 61 73 20 63 | "`url.e|l' was c|
|000001f0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|00000200| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000210| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000220| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000230| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000240| 20 6e 69 6c 29 29 0a 0a | 0a 28 62 79 74 65 2d 63 | nil))..|.(byte-c|
|00000250| 6f 64 65 20 22 c0 c1 21 | 88 c0 c2 21 88 c0 c3 21 |ode "..!|...!...!|
|00000260| 88 c0 c4 21 88 c0 c5 21 | 88 c0 c6 21 88 c7 c8 21 |...!...!|...!...!|
|00000270| ac 8a c7 c9 21 ac 85 ca | cb cc 8f 88 cd ce 0e 0f |....!...|........|
|00000280| 5c 22 ab 8c 0e 10 d1 56 | ac 8a 0e 12 d3 59 ac 84 |\".....V|.....Y..|
|00000290| c0 d4 21 88 ca 87 22 20 | 5b 72 65 71 75 69 72 65 |..!..." |[require|
|000002a0| 20 63 6c 20 75 72 6c 2d | 76 61 72 73 20 75 72 6c | cl url-|vars url|
|000002b0| 2d 70 61 72 73 65 20 6d | 6d 20 6d 75 6c 65 2d 73 |-parse m|m mule-s|
|000002c0| 79 73 64 70 20 64 65 76 | 69 63 65 73 20 66 65 61 |ysdp dev|ices fea|
|000002d0| 74 75 72 65 70 20 65 66 | 73 20 65 66 73 2d 61 75 |turep ef|s efs-au|
|000002e0| 74 6f 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |to nil (|byte-cod|
|000002f0| 65 20 22 c0 c1 21 87 22 | 20 5b 72 65 71 75 69 72 |e "..!."| [requir|
|00000300| 65 20 61 6e 67 65 2d 66 | 74 70 5d 20 32 29 20 28 |e ange-f|tp] 2) (|
|00000310| 28 65 72 72 6f 72 29 29 | 20 73 74 72 69 6e 67 2d |(error))| string-|
|00000320| 6d 61 74 63 68 20 22 58 | 45 6d 61 63 73 22 20 65 |match "X|Emacs" e|
|00000330| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 65 6d 61 |macs-ver|sion ema|
|00000340| 63 73 2d 6d 61 6a 6f 72 | 2d 76 65 72 73 69 6f 6e |cs-major|-version|
|00000350| 20 31 39 20 65 6d 61 63 | 73 2d 6d 69 6e 6f 72 2d | 19 emac|s-minor-|
|00000360| 76 65 72 73 69 6f 6e 20 | 31 34 20 77 33 2d 73 79 |version |14 w3-sy|
|00000370| 73 64 70 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 |sdp] 3).|(defalia|
|00000380| 73 20 27 75 72 6c 2d 73 | 61 76 65 2d 65 72 72 6f |s 'url-s|ave-erro|
|00000390| 72 20 23 5b 28 65 72 72 | 6f 62 6a 29 20 22 8a c0 |r #[(err|obj) "..|
|000003a0| c1 21 71 88 c2 20 88 29 | c3 0c c0 c1 21 5c 22 87 |.!q.. .)|....!\".|
|000003b0| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |" [get-b|uffer-cr|
|000003c0| 65 61 74 65 20 22 20 2a | 75 72 6c 2d 65 72 72 6f |eate " *|url-erro|
|000003d0| 72 2a 22 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |r*" eras|e-buffer|
|000003e0| 20 64 69 73 70 6c 61 79 | 2d 65 72 72 6f 72 20 65 | display|-error e|
|000003f0| 72 72 6f 62 6a 5d 20 34 | 5d 29 0a 28 62 79 74 65 |rrobj] 4|]).(byte|
|00000400| 2d 63 6f 64 65 20 22 c0 | c1 21 ab 86 c2 c1 4d 88 |-code ".|.!....M.|
|00000410| aa 9a c0 c3 21 ab 86 c2 | c3 4d 88 aa 8f c0 c4 21 |....!...|.M.....!|
|00000420| ab 86 c2 c5 4d 88 aa 84 | c2 c6 4d 88 c7 c8 c9 5c |....M...|..M....\|
|00000430| 22 88 c7 ca c9 5c 22 88 | c7 cb cc 5c 22 88 c7 cd |"....\".|...\"...|
|00000440| ce 5c 22 88 c7 cf d0 5c | 22 88 c7 d1 d2 5c 22 88 |.\"....\|"....\".|
|00000450| c7 d3 d4 5c 22 88 c7 d5 | d4 5c 22 88 c7 d6 d4 5c |...\"...|.\"....\|
|00000460| 22 88 c7 d7 d8 5c 22 88 | c7 d9 d0 5c 22 88 c7 da |"....\".|...\"...|
|00000470| d0 5c 22 88 c7 db d8 5c | 22 88 c7 dc d8 5c 22 88 |.\"....\|"....\".|
|00000480| c7 dd d8 5c 22 88 c7 de | d8 5c 22 88 c7 df d8 5c |...\"...|.\"....\|
|00000490| 22 88 c7 e0 d8 5c 22 88 | c7 e1 d8 5c 22 88 c7 e2 |"....\".|...\"...|
|000004a0| e3 5c 22 88 c7 e4 e3 5c | 22 88 c7 e5 e6 5c 22 88 |.\"....\|"....\".|
|000004b0| c7 e7 d0 5c 22 88 c7 e8 | d0 5c 22 88 c7 e9 d0 5c |...\"...|.\"....\|
|000004c0| 22 88 c7 ea d0 5c 22 88 | c7 eb d0 5c 22 88 c7 ec |"....\".|...\"...|
|000004d0| d0 5c 22 88 c7 ed d0 5c | 22 88 c7 ee ef 5c 22 88 |.\"....\|"....\".|
|000004e0| c7 f0 ef 5c 22 88 c7 f1 | f2 5c 22 88 c7 f3 f2 5c |...\"...|.\"....\|
|000004f0| 22 88 c7 f4 f2 5c 22 88 | c7 f5 f2 5c 22 88 c7 f6 |"....\".|...\"...|
|00000500| f7 5c 22 88 c7 f8 f7 5c | 22 88 c7 f6 f7 5c 22 88 |.\"....\|"....\".|
|00000510| c7 f9 f7 5c 22 88 c7 fa | f7 5c 22 88 c7 fb f7 5c |...\"...|.\"....\|
|00000520| 22 88 fc fd 21 88 fc fe | 21 87 22 20 5b 66 62 6f |"...!...|!." [fbo|
|00000530| 75 6e 64 70 20 64 69 73 | 70 6c 61 79 2d 77 61 72 |undp dis|play-war|
|00000540| 6e 69 6e 67 20 75 72 6c | 2d 77 61 72 6e 20 77 33 |ning url|-warn w3|
|00000550| 2d 77 61 72 6e 20 77 61 | 72 6e 20 23 5b 28 63 6c |-warn wa|rn #[(cl|
|00000560| 61 73 73 20 6d 65 73 73 | 61 67 65 20 26 6f 70 74 |ass mess|age &opt|
|00000570| 69 6f 6e 61 6c 20 6c 65 | 76 65 6c 29 20 22 c0 c1 |ional le|vel) "..|
|00000580| 5c 6e 0b ae 81 c4 0d 24 | 87 22 20 5b 77 61 72 6e |\n.....$|." [warn|
|00000590| 20 22 28 25 73 2f 25 73 | 29 20 25 73 22 20 63 6c | "(%s/%s|) %s" cl|
|000005a0| 61 73 73 20 6c 65 76 65 | 6c 20 77 61 72 6e 69 6e |ass leve|l warnin|
|000005b0| 67 20 6d 65 73 73 61 67 | 65 5d 20 35 5d 20 23 5b |g messag|e] 5] #[|
|000005c0| 28 63 6c 61 73 73 20 6d | 65 73 73 61 67 65 20 26 |(class m|essage &|
|000005d0| 6f 70 74 69 6f 6e 61 6c | 20 6c 65 76 65 6c 29 20 |optional| level) |
|000005e0| 22 8a c0 c1 21 71 88 64 | 62 88 8a c2 c3 0c 0d ae |"...!q.d|b.......|
|000005f0| 81 c6 0e 07 24 63 88 29 | c8 70 21 29 87 22 20 5b |....$c.)|.p!)." [|
|00000600| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00000610| 65 20 22 2a 57 33 2d 57 | 41 52 4e 49 4e 47 53 2a |e "*W3-W|ARNINGS*|
|00000620| 22 20 66 6f 72 6d 61 74 | 20 22 28 25 73 2f 25 73 |" format| "(%s/%s|
|00000630| 29 20 25 73 5c 6e 22 20 | 63 6c 61 73 73 20 6c 65 |) %s\n" |class le|
|00000640| 76 65 6c 20 77 61 72 6e | 69 6e 67 20 6d 65 73 73 |vel warn|ing mess|
|00000650| 61 67 65 20 64 69 73 70 | 6c 61 79 2d 62 75 66 66 |age disp|lay-buff|
|00000660| 65 72 5d 20 35 5d 20 61 | 75 74 6f 6c 6f 61 64 20 |er] 5] a|utoload |
|00000670| 75 72 6c 2d 66 69 6c 65 | 20 22 75 72 6c 2d 66 69 |url-file| "url-fi|
|00000680| 6c 65 22 20 75 72 6c 2d | 66 74 70 20 75 72 6c 2d |le" url-|ftp url-|
|00000690| 67 6f 70 68 65 72 20 22 | 75 72 6c 2d 67 6f 70 68 |gopher "|url-goph|
|000006a0| 65 72 22 20 75 72 6c 2d | 69 72 63 20 22 75 72 6c |er" url-|irc "url|
|000006b0| 2d 69 72 63 22 20 75 72 | 6c 2d 68 74 74 70 20 22 |-irc" ur|l-http "|
|000006c0| 75 72 6c 2d 68 74 74 70 | 22 20 75 72 6c 2d 6e 66 |url-http|" url-nf|
|000006d0| 73 20 22 75 72 6c 2d 6e | 66 73 22 20 75 72 6c 2d |s "url-n|fs" url-|
|000006e0| 6d 61 69 6c 73 65 72 76 | 65 72 20 22 75 72 6c 2d |mailserv|er "url-|
|000006f0| 6d 61 69 6c 22 20 75 72 | 6c 2d 6d 61 69 6c 74 6f |mail" ur|l-mailto|
|00000700| 20 75 72 6c 2d 6d 61 69 | 6c 20 75 72 6c 2d 69 6e | url-mai|l url-in|
|00000710| 66 6f 20 22 75 72 6c 2d | 6d 69 73 63 22 20 75 72 |fo "url-|misc" ur|
|00000720| 6c 2d 73 68 74 74 70 20 | 75 72 6c 2d 68 74 74 70 |l-shttp |url-http|
|00000730| 73 20 75 72 6c 2d 64 61 | 74 61 20 75 72 6c 2d 66 |s url-da|ta url-f|
|00000740| 69 6e 67 65 72 20 75 72 | 6c 2d 72 6c 6f 67 69 6e |inger ur|l-rlogin|
|00000750| 20 75 72 6c 2d 74 65 6c | 6e 65 74 20 75 72 6c 2d | url-tel|net url-|
|00000760| 74 6e 33 32 37 30 20 75 | 72 6c 2d 70 72 6f 78 79 |tn3270 u|rl-proxy|
|00000770| 20 75 72 6c 2d 6e 65 74 | 72 65 6b 20 75 72 6c 2d | url-net|rek url-|
|00000780| 6e 65 77 73 20 22 75 72 | 6c 2d 6e 65 77 73 22 20 |news "ur|l-news" |
|00000790| 75 72 6c 2d 6e 6e 74 70 | 20 75 72 6c 2d 6f 70 65 |url-nntp| url-ope|
|000007a0| 6e 2d 73 74 72 65 61 6d | 20 22 75 72 6c 2d 67 77 |n-stream| "url-gw|
|000007b0| 22 20 75 72 6c 2d 6d 69 | 6d 65 2d 72 65 73 70 6f |" url-mi|me-respo|
|000007c0| 6e 73 65 2d 70 20 75 72 | 6c 2d 70 61 72 73 65 2d |nse-p ur|l-parse-|
|000007d0| 6d 69 6d 65 2d 68 65 61 | 64 65 72 73 20 75 72 6c |mime-hea|ders url|
|000007e0| 2d 68 61 6e 64 6c 65 2d | 72 65 66 72 65 73 68 2d |-handle-|refresh-|
|000007f0| 68 65 61 64 65 72 20 75 | 72 6c 2d 63 72 65 61 74 |header u|rl-creat|
|00000800| 65 2d 6d 69 6d 65 2d 72 | 65 71 75 65 73 74 20 75 |e-mime-r|equest u|
|00000810| 72 6c 2d 63 72 65 61 74 | 65 2d 6d 65 73 73 61 67 |rl-creat|e-messag|
|00000820| 65 2d 69 64 20 75 72 6c | 2d 63 72 65 61 74 65 2d |e-id url|-create-|
|00000830| 6d 75 6c 74 69 70 61 72 | 74 2d 72 65 71 75 65 73 |multipar|t-reques|
|00000840| 74 20 75 72 6c 2d 70 61 | 72 73 65 2d 76 69 65 77 |t url-pa|rse-view|
|00000850| 65 72 2d 74 79 70 65 73 | 20 75 72 6c 2d 67 65 74 |er-types| url-get|
|00000860| 2d 61 75 74 68 65 6e 74 | 69 63 61 74 69 6f 6e 20 |-authent|ication |
|00000870| 22 75 72 6c 2d 61 75 74 | 68 22 20 75 72 6c 2d 72 |"url-aut|h" url-r|
|00000880| 65 67 69 73 74 65 72 2d | 61 75 74 68 2d 73 63 68 |egister-|auth-sch|
|00000890| 65 6d 65 20 75 72 6c 2d | 63 6f 6f 6b 69 65 2d 77 |eme url-|cookie-w|
|000008a0| 72 69 74 65 2d 66 69 6c | 65 20 22 75 72 6c 2d 63 |rite-fil|e "url-c|
|000008b0| 6f 6f 6b 69 65 22 20 75 | 72 6c 2d 63 6f 6f 6b 69 |ookie" u|rl-cooki|
|000008c0| 65 2d 72 65 74 72 69 65 | 76 65 20 75 72 6c 2d 63 |e-retrie|ve url-c|
|000008d0| 6f 6f 6b 69 65 2d 67 65 | 6e 65 72 61 74 65 2d 68 |ookie-ge|nerate-h|
|000008e0| 65 61 64 65 72 2d 6c 69 | 6e 65 73 20 75 72 6c 2d |eader-li|nes url-|
|000008f0| 63 6f 6f 6b 69 65 2d 68 | 61 6e 64 6c 65 2d 73 65 |cookie-h|andle-se|
|00000900| 74 2d 63 6f 6f 6b 69 65 | 20 75 72 6c 2d 69 73 2d |t-cookie| url-is-|
|00000910| 63 61 63 68 65 64 20 22 | 75 72 6c 2d 63 61 63 68 |cached "|url-cach|
|00000920| 65 22 20 75 72 6c 2d 73 | 74 6f 72 65 2d 69 6e 2d |e" url-s|tore-in-|
|00000930| 63 61 63 68 65 20 75 72 | 6c 2d 63 61 63 68 65 2d |cache ur|l-cache-|
|00000940| 63 72 65 61 74 65 2d 66 | 69 6c 65 6e 61 6d 65 20 |create-f|ilename |
|00000950| 75 72 6c 2d 63 61 63 68 | 65 2d 65 78 74 72 61 63 |url-cach|e-extrac|
|00000960| 74 20 75 72 6c 2d 63 61 | 63 68 65 2d 65 78 70 69 |t url-ca|che-expi|
|00000970| 72 65 64 20 72 65 71 75 | 69 72 65 20 6d 64 35 20 |red requ|ire md5 |
|00000980| 62 61 73 65 36 34 5d 20 | 33 29 0a 28 64 65 66 61 |base64] |3).(defa|
|00000990| 6c 69 61 73 20 27 75 72 | 6c 2d 73 65 74 75 70 2d |lias 'ur|l-setup-|
|000009a0| 66 69 6c 65 2d 6e 61 6d | 65 2d 68 61 6e 64 6c 65 |file-nam|e-handle|
|000009b0| 72 73 20 23 5b 6e 69 6c | 20 22 c0 87 22 20 5b 28 |rs #[nil| ".." [(|
|000009c0| 63 6f 6e 64 20 28 28 6e | 6f 74 20 28 62 6f 75 6e |cond ((n|ot (boun|
|000009d0| 64 70 20 27 66 69 6c 65 | 2d 6e 61 6d 65 2d 68 61 |dp 'file|-name-ha|
|000009e0| 6e 64 6c 65 72 2d 61 6c | 69 73 74 29 29 20 6e 69 |ndler-al|ist)) ni|
|000009f0| 6c 29 20 28 28 72 61 73 | 73 71 20 27 75 72 6c 2d |l) ((ras|sq 'url-|
|00000a00| 66 69 6c 65 2d 68 61 6e | 64 6c 65 72 20 66 69 6c |file-han|dler fil|
|00000a10| 65 2d 6e 61 6d 65 2d 68 | 61 6e 64 6c 65 72 2d 61 |e-name-h|andler-a|
|00000a20| 6c 69 73 74 29 20 6e 69 | 6c 29 20 28 74 20 28 73 |list) ni|l) (t (s|
|00000a30| 65 74 71 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 68 61 |etq file|-name-ha|
|00000a40| 6e 64 6c 65 72 2d 61 6c | 69 73 74 20 28 6c 65 74 |ndler-al|ist (let|
|00000a50| 20 28 28 6e 65 77 2d 68 | 61 6e 64 6c 65 72 20 28 | ((new-h|andler (|
|00000a60| 63 6f 6e 73 20 28 63 6f | 6e 63 61 74 20 22 5e 2f |cons (co|ncat "^/|
|00000a70| 2a 22 20 28 73 75 62 73 | 74 72 69 6e 67 20 75 72 |*" (subs|tring ur|
|00000a80| 6c 2d 6e 6f 6e 72 65 6c | 61 74 69 76 65 2d 6c 69 |l-nonrel|ative-li|
|00000a90| 6e 6b 31 20 6e 69 6c 29 | 29 20 27 75 72 6c 2d 66 |nk1 nil)|) 'url-f|
|00000aa0| 69 6c 65 2d 68 61 6e 64 | 6c 65 72 29 29 29 20 28 |ile-hand|ler))) (|
|00000ab0| 69 66 20 66 69 6c 65 2d | 6e 61 6d 65 2d 68 61 6e |if file-|name-han|
|00000ac0| 64 6c 65 72 2d 61 6c 69 | 73 74 20 28 61 70 70 65 |dler-ali|st (appe|
|00000ad0| 6e 64 20 28 6c 69 73 74 | 20 6e 65 77 2d 68 61 6e |nd (list| new-han|
|00000ae0| 64 6c 65 72 29 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |dler) fi|le-name-|
|00000af0| 68 61 6e 64 6c 65 72 2d | 61 6c 69 73 74 29 20 28 |handler-|alist) (|
|00000b00| 6c 69 73 74 20 6e 65 77 | 2d 68 61 6e 64 6c 65 72 |list new|-handler|
|00000b10| 29 29 29 29 29 29 5d 20 | 31 5d 29 0a 28 64 65 66 |))))))] |1]).(def|
|00000b20| 61 6c 69 61 73 20 27 75 | 72 6c 2d 66 69 6c 65 2d |alias 'u|rl-file-|
|00000b30| 68 61 6e 64 6c 65 72 20 | 23 5b 28 6f 70 65 72 61 |handler |#[(opera|
|00000b40| 74 69 6f 6e 20 26 72 65 | 73 74 20 61 72 67 73 29 |tion &re|st args)|
|00000b50| 20 22 08 c1 4e 5c 6e 40 | 5c 6e 41 1b 1c 1d c6 0c | "..N\n@|\nA.....|
|00000b60| 21 c7 55 ab 85 0c c8 c9 | 4f 14 0d ab 87 ca 0d 0c |!.U.....|O.......|
|00000b70| 0b 23 aa 89 c9 1e 0b ca | 08 0c 0b 23 29 2b 87 22 |.#......|...#)+."|
|00000b80| 20 5b 6f 70 65 72 61 74 | 69 6f 6e 20 75 72 6c 2d | [operat|ion url-|
|00000b90| 66 69 6c 65 2d 68 61 6e | 64 6c 65 72 73 20 61 72 |file-han|dlers ar|
|00000ba0| 67 73 20 6d 79 61 72 67 | 73 20 75 72 6c 20 66 6e |gs myarg|s url fn|
|00000bb0| 20 73 74 72 69 6e 67 2d | 74 6f 2d 63 68 61 72 20 | string-|to-char |
|00000bc0| 3f 5c 2f 20 31 20 6e 69 | 6c 20 61 70 70 6c 79 20 |?\/ 1 ni|l apply |
|00000bd0| 66 69 6c 65 2d 6e 61 6d | 65 2d 68 61 6e 64 6c 65 |file-nam|e-handle|
|00000be0| 72 2d 61 6c 69 73 74 5d | 20 34 5d 29 0a 28 64 65 |r-alist]| 4]).(de|
|00000bf0| 66 61 6c 69 61 73 20 27 | 75 72 6c 2d 66 69 6c 65 |falias '|url-file|
|00000c00| 2d 68 61 6e 64 6c 65 72 | 2d 69 64 65 6e 74 69 74 |-handler|-identit|
|00000c10| 79 20 23 5b 28 26 72 65 | 73 74 20 61 72 67 73 29 |y #[(&re|st args)|
|00000c20| 20 22 08 40 87 22 20 5b | 61 72 67 73 5d 20 31 5d | ".@." [|args] 1]|
|00000c30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |).(defal|ias 'url|
|00000c40| 2d 66 69 6c 65 2d 68 61 | 6e 64 6c 65 72 2d 6e 75 |-file-ha|ndler-nu|
|00000c50| 6c 6c 20 23 5b 28 26 72 | 65 73 74 20 61 72 67 73 |ll #[(&r|est args|
|00000c60| 29 20 22 c0 87 22 20 5b | 6e 69 6c 5d 20 31 5d 29 |) ".." [|nil] 1])|
|00000c70| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000c80| c3 23 88 c0 c4 c2 c5 23 | 88 c0 c6 c2 c3 23 88 c0 |.#.....#|.....#..|
|00000c90| c7 c2 c5 23 88 c0 c8 c2 | c9 23 88 c0 ca c2 cb 23 |...#....|.#.....#|
|00000ca0| 88 c0 cc c2 cd 23 88 c0 | c1 c2 ce 23 88 c0 c6 c2 |.....#..|...#....|
|00000cb0| cf 23 88 c0 d0 c2 d1 23 | 88 c0 d2 c2 d3 23 88 c0 |.#.....#|.....#..|
|00000cc0| d4 c2 d3 23 88 c0 d5 c2 | d1 23 88 c0 d6 c2 d7 23 |...#....|.#.....#|
|00000cd0| 88 c0 d8 c2 d9 23 88 c0 | da c2 db 23 88 c0 dc c2 |.....#..|...#....|
|00000ce0| dd 23 88 c0 de c2 df 23 | 88 e0 e1 21 ab 86 e2 e1 |.#.....#|...!....|
|00000cf0| 4d 88 aa 84 e2 e3 4d 88 | c0 87 22 20 5b 70 75 74 |M.....M.|.." [put|
|00000d00| 20 66 69 6c 65 2d 64 69 | 72 65 63 74 6f 72 79 2d | file-di|rectory-|
|00000d10| 70 20 75 72 6c 2d 66 69 | 6c 65 2d 68 61 6e 64 6c |p url-fi|le-handl|
|00000d20| 65 72 73 20 75 72 6c 2d | 66 69 6c 65 2d 68 61 6e |ers url-|file-han|
|00000d30| 64 6c 65 72 2d 6e 75 6c | 6c 20 73 75 62 73 74 69 |dler-nul|l substi|
|00000d40| 74 75 74 65 2d 69 6e 2d | 66 69 6c 65 2d 6e 61 6d |tute-in-|file-nam|
|00000d50| 65 20 75 72 6c 2d 66 69 | 6c 65 2d 68 61 6e 64 6c |e url-fi|le-handl|
|00000d60| 65 72 2d 69 64 65 6e 74 | 69 74 79 20 66 69 6c 65 |er-ident|ity file|
|00000d70| 2d 77 72 69 74 61 62 6c | 65 2d 70 20 66 69 6c 65 |-writabl|e-p file|
|00000d80| 2d 74 72 75 65 6e 61 6d | 65 20 69 6e 73 65 72 74 |-truenam|e insert|
|00000d90| 2d 66 69 6c 65 2d 63 6f | 6e 74 65 6e 74 73 20 75 |-file-co|ntents u|
|00000da0| 72 6c 2d 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |rl-inser|t-file-c|
|00000db0| 6f 6e 74 65 6e 74 73 20 | 65 78 70 61 6e 64 2d 66 |ontents |expand-f|
|00000dc0| 69 6c 65 2d 6e 61 6d 65 | 20 75 72 6c 2d 65 78 70 |ile-name| url-exp|
|00000dd0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 64 69 |and-file|-name di|
|00000de0| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 73 20 75 72 |rectory-|files ur|
|00000df0| 6c 2d 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |l-direct|ory-file|
|00000e00| 73 20 75 72 6c 2d 66 69 | 6c 65 2d 64 69 72 65 63 |s url-fi|le-direc|
|00000e10| 74 6f 72 79 2d 70 20 75 | 72 6c 2d 66 69 6c 65 2d |tory-p u|rl-file-|
|00000e20| 77 72 69 74 61 62 6c 65 | 2d 70 20 66 69 6c 65 2d |writable|-p file-|
|00000e30| 72 65 61 64 61 62 6c 65 | 2d 70 20 75 72 6c 2d 66 |readable|-p url-f|
|00000e40| 69 6c 65 2d 65 78 69 73 | 74 73 20 66 69 6c 65 2d |ile-exis|ts file-|
|00000e50| 65 78 65 63 75 74 61 62 | 6c 65 2d 70 20 6e 75 6c |executab|le-p nul|
|00000e60| 6c 20 66 69 6c 65 2d 73 | 79 6d 6c 69 6e 6b 2d 70 |l file-s|ymlink-p|
|00000e70| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 63 | file-ex|ists-p c|
|00000e80| 6f 70 79 2d 66 69 6c 65 | 20 75 72 6c 2d 63 6f 70 |opy-file| url-cop|
|00000e90| 79 2d 66 69 6c 65 20 66 | 69 6c 65 2d 61 74 74 72 |y-file f|ile-attr|
|00000ea0| 69 62 75 74 65 73 20 75 | 72 6c 2d 66 69 6c 65 2d |ibutes u|rl-file-|
|00000eb0| 61 74 74 72 69 62 75 74 | 65 73 20 66 69 6c 65 2d |attribut|es file-|
|00000ec0| 6e 61 6d 65 2d 61 6c 6c | 2d 63 6f 6d 70 6c 65 74 |name-all|-complet|
|00000ed0| 69 6f 6e 73 20 75 72 6c | 2d 66 69 6c 65 2d 6e 61 |ions url|-file-na|
|00000ee0| 6d 65 2d 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |me-all-c|ompletio|
|00000ef0| 6e 73 20 66 69 6c 65 2d | 6e 61 6d 65 2d 63 6f 6d |ns file-|name-com|
|00000f00| 70 6c 65 74 69 6f 6e 20 | 75 72 6c 2d 66 69 6c 65 |pletion |url-file|
|00000f10| 2d 6e 61 6d 65 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |-name-co|mpletion|
|00000f20| 20 66 69 6c 65 2d 6c 6f | 63 61 6c 2d 63 6f 70 79 | file-lo|cal-copy|
|00000f30| 20 75 72 6c 2d 66 69 6c | 65 2d 6c 6f 63 61 6c 2d | url-fil|e-local-|
|00000f40| 63 6f 70 79 20 66 62 6f | 75 6e 64 70 20 6d 6d 2d |copy fbo|undp mm-|
|00000f50| 73 74 72 69 6e 67 2d 74 | 6f 2d 74 6f 6b 65 6e 73 |string-t|o-tokens|
|00000f60| 20 75 72 6c 2d 73 74 72 | 69 6e 67 2d 74 6f 2d 74 | url-str|ing-to-t|
|00000f70| 6f 6b 65 6e 73 20 23 5b | 28 73 74 72 20 26 6f 70 |okens #[|(str &op|
|00000f80| 74 69 6f 6e 61 6c 20 64 | 65 6c 69 6d 29 20 22 08 |tional d|elim) ".|
|00000f90| ae 81 c1 10 c2 89 1b 1c | c5 c6 0e 07 5c 22 88 0b |........|....\"..|
|00000fa0| 0c 42 9f 2a 87 22 20 5b | 64 65 6c 69 6d 20 3f 5c |.B.*." [|delim ?\|
|00000fb0| 20 20 6e 69 6c 20 79 20 | 72 65 73 75 6c 74 73 20 | nil y |results |
|00000fc0| 6d 61 70 63 61 72 20 23 | 5b 28 78 29 20 22 08 09 |mapcar #|[(x) "..|
|00000fd0| 55 ab 8b 5c 6e ab 88 5c | 6e 0b 42 13 c4 89 12 87 |U..\n..\|n.B.....|
|00000fe0| 08 09 55 ac 88 5c 6e c5 | 08 21 50 89 12 87 c4 87 |..U..\n.|.!P.....|
|00000ff0| 22 20 5b 78 20 64 65 6c | 69 6d 20 79 20 72 65 73 |" [x del|im y res|
|00001000| 75 6c 74 73 20 6e 69 6c | 20 63 68 61 72 2d 74 6f |ults nil| char-to|
|00001010| 2d 73 74 72 69 6e 67 5d | 20 33 5d 20 73 74 72 5d |-string]| 3] str]|
|00001020| 20 33 20 22 52 65 74 75 | 72 6e 20 61 20 6c 69 73 | 3 "Retu|rn a lis|
|00001030| 74 20 6f 66 20 77 6f 72 | 64 73 20 66 72 6f 6d 20 |t of wor|ds from |
|00001040| 74 68 65 20 73 74 72 69 | 6e 67 20 53 54 52 22 5d |the stri|ng STR"]|
|00001050| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00001060| 75 72 6c 2d 64 61 79 73 | 2d 62 65 74 77 65 65 6e |url-days|-between|
|00001070| 20 23 5b 28 64 61 74 65 | 31 20 64 61 74 65 32 29 | #[(date|1 date2)|
|00001080| 20 22 c0 09 21 c0 5c 6e | 21 5a 87 22 20 5b 75 72 | "..!.\n|!Z." [ur|
|00001090| 6c 2d 64 61 79 2d 6e 75 | 6d 62 65 72 20 64 61 74 |l-day-nu|mber dat|
|000010a0| 65 31 20 64 61 74 65 32 | 5d 20 33 5d 29 0a 28 64 |e1 date2|] 3]).(d|
|000010b0| 65 66 61 6c 69 61 73 20 | 27 75 72 6c 2d 64 61 79 |efalias |'url-day|
|000010c0| 2d 6e 75 6d 62 65 72 20 | 23 5b 28 64 61 74 65 29 |-number |#[(date)|
|000010d0| 20 22 c0 c1 c2 0b 21 5c | 22 1c c5 0c 41 40 c6 0c | "....!\|"...A@..|
|000010e0| 38 0c 40 23 29 87 22 20 | 5b 6d 61 70 63 61 72 20 |8.@#)." |[mapcar |
|000010f0| 23 5b 28 73 29 20 22 08 | ad 83 c1 08 21 87 22 20 |#[(s) ".|....!." |
|00001100| 5b 73 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |[s strin|g-to-int|
|00001110| 5d 20 32 5d 20 74 69 6d | 65 7a 6f 6e 65 2d 70 61 |] 2] tim|ezone-pa|
|00001120| 72 73 65 2d 64 61 74 65 | 20 64 61 74 65 20 64 61 |rse-date| date da|
|00001130| 74 20 74 69 6d 65 7a 6f | 6e 65 2d 61 62 73 6f 6c |t timezo|ne-absol|
|00001140| 75 74 65 2d 66 72 6f 6d | 2d 67 72 65 67 6f 72 69 |ute-from|-gregori|
|00001150| 61 6e 20 32 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |an 2] 4]|).(defal|
|00001160| 69 61 73 20 27 75 72 6c | 2d 73 65 63 6f 6e 64 73 |ias 'url|-seconds|
|00001170| 2d 73 69 6e 63 65 2d 65 | 70 6f 63 68 20 23 5b 28 |-since-e|poch #[(|
|00001180| 64 61 74 65 29 20 22 c0 | c1 c2 0b 21 5c 22 1c c0 |date) ".|...!\"..|
|00001190| c5 c6 c2 0b 21 c7 48 21 | 5c 22 1e 08 c0 c9 c2 ca |....!.H!|\"......|
|000011a0| 21 5c 22 1e 0b cc 0c 41 | 40 cd 0c 38 0c 40 23 cc |!\"....A|@..8.@#.|
|000011b0| 0e 0b 41 40 cd 0e 0b 38 | 0e 0b 40 23 5a 1e 0e cd |..A@...8|..@#Z...|
|000011c0| 0e 08 38 0e 08 41 40 cf | 5f 5c 5c 0e 08 40 d0 5f |..8..A@.|_\\..@._|
|000011d0| 5c 5c 0e 0e d1 5f 5c 5c | 2c 87 22 20 5b 6d 61 70 |\\..._\\|,." [map|
|000011e0| 63 61 72 20 23 5b 28 74 | 69 29 20 22 08 ad 83 c1 |car #[(t|i) "....|
|000011f0| 08 21 87 22 20 5b 74 69 | 20 73 74 72 69 6e 67 2d |.!." [ti| string-|
|00001200| 74 6f 2d 69 6e 74 5d 20 | 32 5d 20 74 69 6d 65 7a |to-int] |2] timez|
|00001210| 6f 6e 65 2d 70 61 72 73 | 65 2d 64 61 74 65 20 64 |one-pars|e-date d|
|00001220| 61 74 65 20 74 64 61 74 | 65 20 23 5b 28 74 69 29 |ate tdat|e #[(ti)|
|00001230| 20 22 08 ad 83 c1 08 21 | 87 22 20 5b 74 69 20 73 | ".....!|." [ti s|
|00001240| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 5d 20 32 5d |tring-to|-int] 2]|
|00001250| 20 74 69 6d 65 7a 6f 6e | 65 2d 70 61 72 73 65 2d | timezon|e-parse-|
|00001260| 74 69 6d 65 20 33 20 74 | 74 69 6d 65 20 23 5b 28 |time 3 t|time #[(|
|00001270| 74 69 29 20 22 08 ad 83 | c1 08 21 87 22 20 5b 74 |ti) "...|..!." [t|
|00001280| 69 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 5d |i string|-to-int]|
|00001290| 20 32 5d 20 22 4a 61 6e | 20 31 20 31 32 3a 30 30 | 2] "Jan| 1 12:00|
|000012a0| 3a 30 30 20 31 39 37 30 | 22 20 65 64 61 74 65 20 |:00 1970|" edate |
|000012b0| 74 69 6d 65 7a 6f 6e 65 | 2d 61 62 73 6f 6c 75 74 |timezone|-absolut|
|000012c0| 65 2d 66 72 6f 6d 2d 67 | 72 65 67 6f 72 69 61 6e |e-from-g|regorian|
|000012d0| 20 32 20 74 64 61 79 20 | 36 30 20 33 36 30 30 20 | 2 tday |60 3600 |
|000012e0| 38 36 34 30 30 5d 20 35 | 5d 29 0a 28 64 65 66 61 |86400] 5|]).(defa|
|000012f0| 6c 69 61 73 20 27 75 72 | 6c 2d 6d 61 74 63 68 20 |lias 'ur|l-match |
|00001300| 23 5b 28 73 20 78 29 20 | 22 08 09 94 09 95 4f 87 |#[(s x) |".....O.|
|00001310| 22 20 5b 73 20 78 5d 20 | 33 5d 29 0a 28 64 65 66 |" [s x] |3]).(def|
|00001320| 61 6c 69 61 73 20 27 75 | 72 6c 2d 73 70 6c 69 74 |alias 'u|rl-split|
|00001330| 20 23 5b 28 73 74 72 20 | 64 65 6c 29 20 22 c0 89 | #[(str |del) "..|
|00001340| 19 1a c3 0c 0d 5c 22 ab | 9a 0d c6 89 94 4f 11 0d |.....\".|.....O..|
|00001350| c6 95 c0 4f 15 c3 c7 09 | 5c 22 ac 68 09 89 44 5c |...O....|\".h..D\|
|00001360| 6e 42 12 aa 60 0d c8 6b | ac 86 0d 89 44 5c 6e 42 |nB..`..k|....D\nB|
|00001370| 12 5c 6e 2a 87 22 20 5b | 6e 69 6c 20 79 20 78 20 |.\n*." [|nil y x |
|00001380| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 64 65 6c |string-m|atch del|
|00001390| 20 73 74 72 20 30 20 22 | 5e 5b 20 09 5d 2b 24 22 | str 0 "|^[ .]+$"|
|000013a0| 20 22 22 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 | ""] 3])|.(defali|
|000013b0| 61 73 20 27 75 72 6c 2d | 72 65 70 6c 61 63 65 2d |as 'url-|replace-|
|000013c0| 72 65 67 65 78 70 20 23 | 5b 28 72 65 67 65 78 70 |regexp #|[(regexp|
|000013d0| 20 74 6f 2d 73 74 72 69 | 6e 67 29 20 22 65 62 88 | to-stri|ng) "eb.|
|000013e0| c0 09 c2 c3 23 ad 88 c4 | 0d c3 c2 23 88 aa 71 87 |....#...|...#..q.|
|000013f0| 22 20 5b 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |" [re-se|arch-for|
|00001400| 77 61 72 64 20 72 65 67 | 65 78 70 20 6e 69 6c 20 |ward reg|exp nil |
|00001410| 74 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |t replac|e-match |
|00001420| 74 6f 2d 73 74 72 69 6e | 67 5d 20 34 5d 29 0a 28 |to-strin|g] 4]).(|
|00001430| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 63 6c |defalias| 'url-cl|
|00001440| 65 61 72 2d 74 6d 70 2d | 62 75 66 66 65 72 20 23 |ear-tmp-|buffer #|
|00001450| 5b 6e 69 6c 20 22 c0 09 | 21 71 88 5c 6e ab 83 c3 |[nil "..|!q.\n...|
|00001460| 20 88 c4 20 87 22 20 5b | 67 65 74 2d 62 75 66 66 | .. ." [|get-buff|
|00001470| 65 72 2d 63 72 65 61 74 | 65 20 75 72 6c 2d 77 6f |er-creat|e url-wo|
|00001480| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 20 62 75 66 |rking-bu|ffer buf|
|00001490| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 74 6f |fer-read|-only to|
|000014a0| 67 67 6c 65 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 65 |ggle-rea|d-only e|
|000014b0| 72 61 73 65 2d 62 75 66 | 66 65 72 5d 20 32 5d 29 |rase-buf|fer] 2])|
|000014c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 75 72 6c 2d |.(defali|as 'url-|
|000014d0| 6d 61 79 62 65 2d 72 65 | 6c 61 74 69 76 65 20 23 |maybe-re|lative #|
|000014e0| 5b 28 75 72 6c 29 20 22 | c0 c1 5c 6e 21 21 87 22 |[(url) "|..\n!!."|
|000014f0| 20 5b 75 72 6c 2d 72 65 | 74 72 69 65 76 65 20 75 | [url-re|trieve u|
|00001500| 72 6c 2d 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |rl-expan|d-file-n|
|00001510| 61 6d 65 20 75 72 6c 5d | 20 33 5d 29 0a 23 40 36 |ame url]| 3]).#@6|
|00001520| 32 20 52 65 74 75 72 6e | 20 74 20 69 66 20 61 20 |2 Return| t if a |
|00001530| 62 75 66 66 65 72 20 63 | 6f 6e 74 61 69 6e 73 20 |buffer c|ontains |
|00001540| 48 54 4d 4c 2c 20 61 73 | 20 6e 65 61 72 20 61 73 |HTML, as| near as|
|00001550| 20 77 65 20 63 61 6e 20 | 67 75 65 73 73 2e 1f 0a | we can |guess...|
|00001560| 28 64 65 66 61 6c 69 61 | 73 20 27 75 72 6c 2d 62 |(defalia|s 'url-b|
|00001570| 75 66 66 65 72 2d 69 73 | 2d 68 79 70 65 72 74 65 |uffer-is|-hyperte|
|00001580| 78 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |xt #[(&o|ptional |
|00001590| 62 75 66 66 29 20 22 08 | ae 81 70 10 8a 08 71 88 |buff) ".|..p...q.|
|000015a0| c1 1a 65 62 88 c3 c4 c5 | c1 23 2a 87 22 20 5b 62 |..eb....|.#*." [b|
|000015b0| 75 66 66 20 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |uff t ca|se-fold-|
|000015c0| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|000015d0| 2d 66 6f 72 77 61 72 64 | 20 22 3c 5c 5c 28 54 49 |-forward| "<\\(TI|
|000015e0| 54 4c 45 5c 5c 7c 48 45 | 41 44 5c 5c 7c 42 41 53 |TLE\\|HE|AD\\|BAS|
|000015f0| 45 5c 5c 7c 48 5b 30 2d | 39 5d 5c 5c 7c 49 53 49 |E\\|H[0-|9]\\|ISI|
|00001600| 4e 44 45 58 5c 5c 7c 50 | 5c 5c 29 3e 22 20 6e 69 |NDEX\\|P|\\)>" ni|
|00001610| 6c 5d 20 34 20 28 23 24 | 20 2e 20 35 34 31 30 29 |l] 4 (#$| . 5410)|
|00001620| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 72 |]).(defa|lias 'ur|
|00001630| 6c 2d 70 65 72 63 65 6e | 74 61 67 65 20 23 5b 28 |l-percen|tage #[(|
|00001640| 78 20 79 29 20 22 c0 c1 | 21 ab 8a c2 0b c1 0c 21 |x y) "..|!......!|
|00001650| a5 c5 5f 21 87 0b c5 5f | 0c a5 87 22 20 5b 66 62 |.._!..._|..." [fb|
|00001660| 6f 75 6e 64 70 20 66 6c | 6f 61 74 20 72 6f 75 6e |oundp fl|oat roun|
|00001670| 64 20 78 20 79 20 31 30 | 30 5d 20 34 5d 29 0a 28 |d x y 10|0] 4]).(|
|00001680| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 70 72 |defalias| 'url-pr|
|00001690| 65 74 74 79 2d 6c 65 6e | 67 74 68 20 23 5b 28 6e |etty-len|gth #[(n|
|000016a0| 29 20 22 08 c1 57 ab 85 | c2 c3 08 5c 22 87 08 c4 |) "..W..|...\"...|
|000016b0| 57 ab 87 c2 c5 08 c6 a5 | 5c 22 87 c2 c7 08 c8 c1 |W.......|\"......|
|000016c0| 5f a5 5c 22 87 22 20 5b | 6e 20 31 30 32 34 20 66 |_.\"." [|n 1024 f|
|000016d0| 6f 72 6d 61 74 20 22 25 | 64 20 62 79 74 65 73 22 |ormat "%|d bytes"|
|000016e0| 20 31 30 34 38 35 37 36 | 20 22 25 64 6b 22 20 31 | 1048576| "%dk" 1|
|000016f0| 30 32 34 2e 30 20 22 25 | 32 2e 32 66 4d 22 20 31 |024.0 "%|2.2fM" 1|
|00001700| 30 32 34 2e 30 5d 20 35 | 5d 29 0a 28 64 65 66 61 |024.0] 5|]).(defa|
|00001710| 6c 69 61 73 20 27 75 72 | 6c 2d 61 66 74 65 72 2d |lias 'ur|l-after-|
|00001720| 63 68 61 6e 67 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |change-f|unction |
|00001730| 23 5b 28 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |#[(&rest| args) "|
|00001740| 08 ac c5 8a 65 62 88 c1 | c2 77 88 c3 c4 21 ac 84 |....eb..|.w...!..|
|00001750| c5 10 aa b3 c6 c7 c2 c8 | 23 ad 81 60 16 09 c6 ca |........|#..`....|
|00001760| 0e 09 c8 23 ab 8a cb cc | 94 cc 95 7b 21 97 16 0d |...#....|...{!...|
|00001770| 65 62 88 c6 ce 0e 09 c8 | 23 ab 8a cf cc 94 cc 95 |eb......|#.......|
|00001780| 7b 21 10 aa 82 c2 10 29 | 64 0e 09 ab 86 64 0e 09 |{!.....)|d....d..|
|00001790| 5a aa 81 64 5d 1e 10 08 | ab 9c 08 cc 56 ab 97 0e |Z..d]...|....V...|
|000017a0| 0d ab 93 d1 d2 0e 0d d3 | 0e 10 21 d3 08 21 d4 0e |........|..!..!..|
|000017b0| 10 08 5c 22 25 aa c0 08 | ab 96 08 cc 56 ab 91 d1 |..\"%...|....V...|
|000017c0| d5 d3 0e 10 21 d3 08 21 | d4 0e 10 08 5c 22 24 aa |....!..!|....\"$.|
|000017d0| a7 0e 10 cc 55 ac 8f 0e | 0d ab 8b d1 d6 0e 0d d3 |....U...|........|
|000017e0| 0e 10 21 23 aa 92 0e 10 | cc 55 ac 89 d1 d7 d3 0e |..!#....|.U......|
|000017f0| 10 21 5c 22 aa 83 d1 d8 | 21 29 87 22 20 5b 75 72 |.!\"....|!)." [ur|
|00001800| 6c 2d 63 75 72 72 65 6e | 74 2d 63 6f 6e 74 65 6e |l-curren|t-conten|
|00001810| 74 2d 6c 65 6e 67 74 68 | 20 22 20 09 5c 6e 22 20 |t-length| " .\n" |
|00001820| 6e 69 6c 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |nil look|ing-at "|
|00001830| 48 54 54 50 2f 5b 30 2d | 39 5d 2e 5b 30 2d 39 5d |HTTP/[0-|9].[0-9]|
|00001840| 22 20 30 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |" 0 re-s|earch-fo|
|00001850| 72 77 61 72 64 20 22 24 | 0d 2a 24 22 20 74 20 75 |rward "$|.*$" t u|
|00001860| 72 6c 2d 63 75 72 72 65 | 6e 74 2d 69 73 69 6e 64 |rl-curre|nt-isind|
|00001870| 65 78 20 22 5e 63 6f 6e | 74 65 6e 74 2d 74 79 70 |ex "^con|tent-typ|
|00001880| 65 3a 5b 20 09 5d 2a 5c | 5c 28 5b 5e 0d 5c 6e 5d |e:[ .]*\|\([^.\n]|
|00001890| 2b 5c 5c 29 0d 2a 24 22 | 20 75 72 6c 2d 65 61 74 |+\\).*$"| url-eat|
|000018a0| 2d 74 72 61 69 6c 69 6e | 67 2d 73 70 61 63 65 20 |-trailin|g-space |
|000018b0| 31 20 75 72 6c 2d 63 75 | 72 72 65 6e 74 2d 6d 69 |1 url-cu|rrent-mi|
|000018c0| 6d 65 2d 74 79 70 65 20 | 22 5e 63 6f 6e 74 65 6e |me-type |"^conten|
|000018d0| 74 2d 6c 65 6e 67 74 68 | 3a 5c 5c 28 5b 5e 0d 5c |t-length|:\\([^.\|
|000018e0| 6e 5d 2b 5c 5c 29 0d 2a | 24 22 20 73 74 72 69 6e |n]+\\).*|$" strin|
|000018f0| 67 2d 74 6f 2d 69 6e 74 | 20 63 75 72 72 65 6e 74 |g-to-int| current|
|00001900| 2d 6c 65 6e 67 74 68 20 | 75 72 6c 2d 6c 61 7a 79 |-length |url-lazy|
|00001910| 2d 6d 65 73 73 61 67 65 | 20 22 52 65 61 64 69 6e |-message| "Readin|
|00001920| 67 20 5b 25 73 5d 2e 2e | 2e 20 25 73 20 6f 66 20 |g [%s]..|. %s of |
|00001930| 25 73 20 28 25 64 25 25 | 29 22 20 75 72 6c 2d 70 |%s (%d%%|)" url-p|
|00001940| 72 65 74 74 79 2d 6c 65 | 6e 67 74 68 20 75 72 6c |retty-le|ngth url|
|00001950| 2d 70 65 72 63 65 6e 74 | 61 67 65 20 22 52 65 61 |-percent|age "Rea|
|00001960| 64 69 6e 67 2e 2e 2e 20 | 25 73 20 6f 66 20 25 73 |ding... |%s of %s|
|00001970| 20 28 25 64 25 25 29 22 | 20 22 52 65 61 64 69 6e | (%d%%)"| "Readin|
|00001980| 67 20 5b 25 73 5d 2e 2e | 2e 20 25 73 22 20 22 52 |g [%s]..|. %s" "R|
|00001990| 65 61 64 69 6e 67 2e 2e | 2e 20 25 73 2e 22 20 22 |eading..|. %s." "|
|000019a0| 57 61 69 74 69 6e 67 20 | 66 6f 72 20 72 65 73 70 |Waiting |for resp|
|000019b0| 6f 6e 73 65 2e 2e 2e 22 | 5d 20 38 5d 29 0a 23 40 |onse..."|] 8]).#@|
|000019c0| 33 34 34 20 43 6f 6e 76 | 65 72 74 20 48 54 4d 4c |344 Conv|ert HTML|
|000019d0| 20 6d 61 72 6b 75 70 2d | 73 74 61 72 74 20 63 68 | markup-|start ch|
|000019e0| 61 72 61 63 74 65 72 73 | 20 74 6f 20 65 6e 74 69 |aracters| to enti|
|000019f0| 74 79 20 72 65 66 65 72 | 65 6e 63 65 73 20 69 6e |ty refer|ences in|
|00001a00| 20 53 54 52 49 4e 47 2e | 0a 20 20 41 6c 73 6f 20 | STRING.|. Also |
|00001a10| 72 65 70 6c 61 63 65 73 | 20 74 68 65 20 22 20 63 |replaces| the " c|
|00001a20| 68 61 72 61 63 74 65 72 | 2c 20 73 6f 20 74 68 61 |haracter|, so tha|
|00001a30| 74 20 74 68 65 20 72 65 | 73 75 6c 74 20 6d 61 79 |t the re|sult may|
|00001a40| 20 62 65 20 73 61 66 65 | 6c 79 20 75 73 65 64 20 | be safe|ly used |
|00001a50| 61 73 0a 20 20 61 6e 20 | 61 74 74 72 69 62 75 74 |as. an |attribut|
|00001a60| 65 20 76 61 6c 75 65 20 | 69 6e 20 61 20 74 61 67 |e value |in a tag|
|00001a70| 2e 20 20 52 65 74 75 72 | 6e 73 20 61 20 6e 65 77 |. Retur|ns a new|
|00001a80| 20 73 74 72 69 6e 67 20 | 77 69 74 68 20 74 68 65 | string |with the|
|00001a90| 20 72 65 73 75 6c 74 20 | 6f 66 20 74 68 65 0a 20 | result |of the. |
|00001aa0| 20 63 6f 6e 76 65 72 73 | 69 6f 6e 2e 20 20 52 65 | convers|ion. Re|
|00001ab0| 70 6c 61 63 65 73 20 74 | 68 65 73 65 20 63 68 61 |places t|hese cha|
|00001ac0| 72 61 63 74 65 72 73 20 | 61 73 20 66 6f 6c 6c 6f |racters |as follo|
|00001ad0| 77 73 3a 0a 20 20 20 20 | 26 20 20 3d 3d 3e 20 20 |ws:. |& ==> |
|00001ae0| 26 61 6d 70 3b 0a 20 20 | 20 20 3c 20 20 3d 3d 3e |&. | < ==>|
|00001af0| 20 20 26 6c 74 3b 0a 20 | 20 20 20 3e 20 20 3d 3d | <. | > ==|
|00001b00| 3e 20 20 26 67 74 3b 0a | 20 20 20 20 22 20 20 3d |> >.| " =|
|00001b10| 3d 3e 20 20 26 71 75 6f | 74 3b 1f 0a 28 64 65 66 |=> &quo|t;..(def|
|00001b20| 61 6c 69 61 73 20 27 75 | 72 6c 2d 69 6e 73 65 72 |alias 'u|rl-inser|
|00001b30| 74 2d 65 6e 74 69 74 69 | 65 73 2d 69 6e 2d 73 74 |t-entiti|es-in-st|
|00001b40| 72 69 6e 67 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |ring #[(|string) |
|00001b50| 22 c0 c1 5c 6e 5c 22 ab | ab 8a c3 c4 21 71 88 c5 |"..\n\".|....!q..|
|00001b60| 20 88 c6 70 21 88 5c 6e | 63 88 65 62 88 c7 c8 77 | ..p!.\n|c.eb...w|
|00001b70| 88 6d ac 8d 60 66 c9 b7 | 41 63 88 ca cb 21 88 aa |.m..`f..|Ac...!..|
|00001b80| 6c cc 20 29 87 5c 6e 87 | 22 20 5b 73 74 72 69 6e |l. ).\n.|" [strin|
|00001b90| 67 2d 6d 61 74 63 68 20 | 22 5b 26 3c 3e 5c 22 5d |g-match |"[&<>\"]|
|00001ba0| 22 20 73 74 72 69 6e 67 | 20 67 65 74 2d 62 75 66 |" string| get-buf|
|00001bb0| 66 65 72 2d 63 72 65 61 | 74 65 20 22 20 2a 65 6e |fer-crea|te " *en|
|00001bc0| 74 69 74 79 2a 22 20 65 | 72 61 73 65 2d 62 75 66 |tity*" e|rase-buf|
|00001bd0| 66 65 72 20 62 75 66 66 | 65 72 2d 64 69 73 61 62 |fer buff|er-disab|
|00001be0| 6c 65 2d 75 6e 64 6f 20 | 22 5e 26 3c 3e 5c 22 22 |le-undo |"^&<>\""|
|00001bf0| 20 6e 69 6c 20 28 28 3f | 5c 22 20 2e 20 22 26 71 | nil ((?|\" . "&q|
|00001c00| 75 6f 74 3b 22 29 20 28 | 3f 5c 26 20 2e 20 22 26 |uot;") (|?\& . "&|
|00001c10| 61 6d 70 3b 22 29 20 28 | 3f 5c 3c 20 2e 20 22 26 |amp;") (|?\< . "&|
|00001c20| 6c 74 3b 22 29 20 28 3f | 5c 3e 20 2e 20 22 26 67 |lt;") (?|\> . "&g|
|00001c30| 74 3b 22 29 29 20 64 65 | 6c 65 74 65 2d 63 68 61 |t;")) de|lete-cha|
|00001c40| 72 20 31 20 62 75 66 66 | 65 72 2d 73 74 72 69 6e |r 1 buff|er-strin|
|00001c50| 67 5d 20 33 20 28 23 24 | 20 2e 20 36 35 39 36 29 |g] 3 (#$| . 6596)|
|00001c60| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001c70| c1 21 ac 82 c2 11 c1 0b | 42 13 c2 87 22 20 5b 62 |.!......|B..." [b|
|00001c80| 6f 75 6e 64 70 20 75 72 | 6c 2d 70 72 6f 63 65 73 |oundp ur|l-proces|
|00001c90| 73 2d 6c 6f 6f 6b 75 70 | 2d 74 61 62 6c 65 20 6e |s-lookup|-table n|
|00001ca0| 69 6c 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |il curre|nt-load-|
|00001cb0| 6c 69 73 74 5d 20 32 29 | 0a 23 40 31 30 34 20 47 |list] 2)|.#@104 G|
|00001cc0| 65 74 20 61 20 76 61 6c | 75 65 20 61 73 73 6f 63 |et a val|ue assoc|
|00001cd0| 69 61 74 65 64 20 74 6f | 20 50 52 4f 43 20 61 73 |iated to| PROC as|
|00001ce0| 20 70 72 6f 70 65 72 74 | 79 20 50 52 4f 50 0a 20 | propert|y PROP. |
|00001cf0| 20 20 20 20 20 20 20 20 | 69 6e 20 70 6c 69 73 74 | |in plist|
|00001d00| 20 73 74 6f 72 65 64 20 | 69 6e 20 60 75 72 6c 2d | stored |in `url-|
|00001d10| 70 72 6f 63 65 73 73 2d | 6c 6f 6f 6b 75 70 2d 74 |process-|lookup-t|
|00001d20| 61 62 6c 65 27 1f 0a 28 | 64 65 66 61 6c 69 61 73 |able'..(|defalias|
|00001d30| 20 27 75 72 6c 2d 70 72 | 6f 63 65 73 73 2d 67 65 | 'url-pr|ocess-ge|
|00001d40| 74 20 23 5b 28 70 72 6f | 63 20 70 72 6f 70 20 26 |t #[(pro|c prop &|
|00001d50| 6f 70 74 69 6f 6e 61 6c | 20 64 65 66 61 75 6c 74 |optional| default|
|00001d60| 29 20 22 c0 09 5c 6e b7 | a3 0b 5c 22 ae 81 0c 87 |) "..\n.|..\"....|
|00001d70| 22 20 5b 70 6c 69 73 74 | 2d 67 65 74 20 70 72 6f |" [plist|-get pro|
|00001d80| 63 20 75 72 6c 2d 70 72 | 6f 63 65 73 73 2d 6c 6f |c url-pr|ocess-lo|
|00001d90| 6f 6b 75 70 2d 74 61 62 | 6c 65 20 70 72 6f 70 20 |okup-tab|le prop |
|00001da0| 64 65 66 61 75 6c 74 5d | 20 33 20 28 23 24 20 2e |default]| 3 (#$ .|
|00001db0| 20 37 33 35 39 29 5d 29 | 0a 23 40 31 30 35 20 41 | 7359)])|.#@105 A|
|00001dc0| 73 73 6f 63 69 61 74 65 | 20 74 6f 20 50 52 4f 43 |ssociate| to PROC|
|00001dd0| 20 61 73 20 70 72 6f 70 | 65 72 74 79 20 50 52 4f | as prop|erty PRO|
|00001de0| 50 20 74 68 65 20 76 61 | 6c 75 65 20 56 41 4c 0a |P the va|lue VAL.|
|00001df0| 20 20 20 20 20 20 20 20 | 20 69 6e 20 70 6c 69 73 | | in plis|
|00001e00| 74 20 73 74 6f 72 65 64 | 20 69 6e 20 60 75 72 6c |t stored| in `url|
|00001e10| 2d 70 72 6f 63 65 73 73 | 2d 6c 6f 6f 6b 75 70 2d |-process|-lookup-|
|00001e20| 74 61 62 6c 65 27 1f 0a | 28 64 65 66 61 6c 69 61 |table'..|(defalia|
|00001e30| 73 20 27 75 72 6c 2d 70 | 72 6f 63 65 73 73 2d 70 |s 'url-p|rocess-p|
|00001e40| 75 74 20 23 5b 28 70 72 | 6f 63 20 70 72 6f 70 20 |ut #[(pr|oc prop |
|00001e50| 76 61 6c 29 20 22 08 09 | b7 89 1a ac 8b 08 0b 0c |val) "..|........|
|00001e60| 44 42 09 42 89 11 aa 88 | 5c 6e c5 5c 6e 41 0b 0c |DB.B....|\n.\nA..|
|00001e70| 23 a1 29 87 22 20 5b 70 | 72 6f 63 20 75 72 6c 2d |#.)." [p|roc url-|
|00001e80| 70 72 6f 63 65 73 73 2d | 6c 6f 6f 6b 75 70 2d 74 |process-|lookup-t|
|00001e90| 61 62 6c 65 20 6e 6f 64 | 65 20 70 72 6f 70 20 76 |able nod|e prop v|
|00001ea0| 61 6c 20 70 6c 69 73 74 | 2d 70 75 74 5d 20 36 20 |al plist|-put] 6 |
|00001eb0| 28 23 24 20 2e 20 37 36 | 31 35 29 5d 29 0a 28 64 |(#$ . 76|15)]).(d|
|00001ec0| 65 66 61 6c 69 61 73 20 | 27 75 72 6c 2d 67 63 2d |efalias |'url-gc-|
|00001ed0| 70 72 6f 63 65 73 73 2d | 6c 6f 6f 6b 75 70 2d 74 |process-|lookup-t|
|00001ee0| 61 62 6c 65 20 23 5b 6e | 69 6c 20 22 c0 19 5c 6e |able #[n|il "..\n|
|00001ef0| ab 94 c3 5c 6e 40 40 21 | c4 73 ac 85 5c 6e 40 09 |...\n@@!|.s..\n@.|
|00001f00| 42 11 5c 6e 41 89 12 ac | 6c 09 89 12 29 87 22 20 |B.\nA...|l...)." |
|00001f10| 5b 6e 69 6c 20 6e 65 77 | 20 75 72 6c 2d 70 72 6f |[nil new| url-pro|
|00001f20| 63 65 73 73 2d 6c 6f 6f | 6b 75 70 2d 74 61 62 6c |cess-loo|kup-tabl|
|00001f30| 65 20 70 72 6f 63 65 73 | 73 2d 73 74 61 74 75 73 |e proces|s-status|
|00001f40| 20 28 73 74 6f 70 20 63 | 6c 6f 73 65 64 20 6e 69 | (stop c|losed ni|
|00001f50| 6c 29 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |l)] 3]).|(defalia|
|00001f60| 73 20 27 75 72 6c 2d 70 | 72 6f 63 65 73 73 2d 6c |s 'url-p|rocess-l|
|00001f70| 69 73 74 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 20 |ist #[ni|l ". .. |
|00001f80| c2 1b 89 1c ab 92 c5 0c | 40 c6 5c 22 ab 85 0c 40 |........|@.\"...@|
|00001f90| 0b 42 13 0c 41 89 14 ac | 6e 0b 2a 87 22 20 5b 75 |.B..A...|n.*." [u|
|00001fa0| 72 6c 2d 67 63 2d 70 72 | 6f 63 65 73 73 2d 6c 6f |rl-gc-pr|ocess-lo|
|00001fb0| 6f 6b 75 70 2d 74 61 62 | 6c 65 20 70 72 6f 63 65 |okup-tab|le proce|
|00001fc0| 73 73 2d 6c 69 73 74 20 | 6e 69 6c 20 72 65 74 76 |ss-list |nil retv|
|00001fd0| 61 6c 20 70 72 6f 63 65 | 73 73 65 73 20 75 72 6c |al proce|sses url|
|00001fe0| 2d 70 72 6f 63 65 73 73 | 2d 67 65 74 20 75 72 6c |-process|-get url|
|00001ff0| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|00002000| 27 75 72 6c 2d 6c 69 73 | 74 2d 70 72 6f 63 65 73 |'url-lis|t-proces|
|00002010| 73 65 73 20 23 5b 6e 69 | 6c 20 22 c0 20 c1 89 89 |ses #[ni|l ". ...|
|00002020| 89 89 c2 c3 21 1c 1d 1e | 06 1e 07 1e 08 1e 09 1e |....!...|........|
|00002030| 5c 6e 0c 71 88 cb 20 88 | cc 0c 21 88 cd ce cf ce |\n.q.. .|..!.....|
|00002040| b1 04 88 0e 5c 6e ad e2 | 0e 5c 6e 40 16 09 0e 5c |....\n..|.\n@...\|
|00002050| 6e 41 16 5c 6e 8a d0 0e | 09 21 71 88 0e 11 16 08 |nA.\n...|.!q.....|
|00002060| 64 0e 12 ab 86 64 0e 12 | 5a aa 81 64 5d 16 07 0e |d....d..|Z..d]...|
|00002070| 13 16 06 d4 0e 09 c5 5c | 22 15 0c 71 88 d5 d6 d4 |.......\|"..q....|
|00002080| 0e 09 c5 5c 22 0d 47 d7 | 56 ab 86 d5 d8 d9 5c 22 |...\".G.|V.....\"|
|00002090| aa 81 d9 0e 08 ab 89 d5 | da 0e 07 0e 08 23 aa 85 |........|.....#..|
|000020a0| d5 db 0e 07 5c 22 0e 06 | ae 81 dc 25 63 88 29 aa |....\"..|...%c.).|
|000020b0| 1a 2e 07 87 22 20 5b 75 | 72 6c 2d 70 72 6f 63 65 |...." [u|rl-proce|
|000020c0| 73 73 2d 6c 69 73 74 20 | 6e 69 6c 20 67 65 74 2d |ss-list |nil get-|
|000020d0| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 22 55 |buffer-c|reate "U|
|000020e0| 52 4c 20 53 74 61 74 75 | 73 20 44 69 73 70 6c 61 |RL Statu|s Displa|
|000020f0| 79 22 20 75 72 6c 2d 73 | 74 61 74 75 73 2d 62 75 |y" url-s|tatus-bu|
|00002100| 66 20 75 72 6c 20 74 79 | 70 65 20 6c 65 6e 20 74 |f url ty|pe len t|
|00002110| 6f 74 61 6c 2d 6c 65 6e | 20 70 72 6f 63 20 70 72 |otal-len| proc pr|
|00002120| 6f 63 65 73 73 65 73 20 | 65 72 61 73 65 2d 62 75 |ocesses |erase-bu|
|00002130| 66 66 65 72 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |ffer dis|play-buf|
|00002140| 66 65 72 20 22 55 52 4c | 20 20 20 20 20 20 20 20 |fer "URL| |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 69 | | Si|
|00002170| 7a 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ze | |
|00002180| 20 20 20 54 79 70 65 20 | 20 20 20 20 20 20 20 20 | Type | |
|00002190| 20 20 22 20 22 5c 6e 22 | 20 22 2d 2d 2d 2d 2d 2d | " "\n"| "------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021e0| 2d 2d 2d 2d 2d 2d 2d 22 | 20 70 72 6f 63 65 73 73 |-------"| process|
|000021f0| 2d 62 75 66 66 65 72 20 | 75 72 6c 2d 63 75 72 72 |-buffer |url-curr|
|00002200| 65 6e 74 2d 63 6f 6e 74 | 65 6e 74 2d 6c 65 6e 67 |ent-cont|ent-leng|
|00002210| 74 68 20 75 72 6c 2d 63 | 75 72 72 65 6e 74 2d 69 |th url-c|urrent-i|
|00002220| 73 69 6e 64 65 78 20 75 | 72 6c 2d 63 75 72 72 65 |sindex u|rl-curre|
|00002230| 6e 74 2d 6d 69 6d 65 2d | 74 79 70 65 20 75 72 6c |nt-mime-|type url|
|00002240| 2d 70 72 6f 63 65 73 73 | 2d 67 65 74 20 66 6f 72 |-process|-get for|
|00002250| 6d 61 74 20 22 25 2d 34 | 30 73 25 73 25 2d 32 30 |mat "%-4|0s%s%-20|
|00002260| 73 20 25 2d 31 35 73 5c | 6e 22 20 34 30 20 22 5c |s %-15s\|n" 40 "\|
|00002270| 6e 25 2d 34 30 73 20 22 | 20 22 20 22 20 22 25 64 |n%-40s "| " " "%d|
|00002280| 20 6f 66 20 25 64 22 20 | 22 25 64 22 20 22 75 6e | of %d" |"%d" "un|
|00002290| 6b 6e 6f 77 6e 22 5d 20 | 38 20 6e 69 6c 20 6e 69 |known"] |8 nil ni|
|000022a0| 6c 5d 29 0a 23 40 31 33 | 30 20 52 65 74 75 72 6e |l]).#@13|0 Return|
|000022b0| 20 6e 6f 6e 2d 6e 69 6c | 20 69 66 66 20 74 68 65 | non-nil| iff the|
|000022c0| 20 75 73 65 72 20 68 61 | 73 20 76 69 73 69 74 65 | user ha|s visite|
|000022d0| 64 20 55 52 4c 20 62 65 | 66 6f 72 65 2e 0a 54 68 |d URL be|fore..Th|
|000022e0| 65 20 72 65 74 75 72 6e | 20 76 61 6c 75 65 20 69 |e return| value i|
|000022f0| 73 20 61 20 63 6f 6e 73 | 20 6f 66 20 74 68 65 20 |s a cons| of the |
|00002300| 75 72 6c 20 61 6e 64 20 | 74 68 65 20 64 61 74 65 |url and |the date|
|00002310| 20 6c 61 73 74 20 61 63 | 63 65 73 73 65 64 20 61 | last ac|cessed a|
|00002320| 73 20 61 20 73 74 72 69 | 6e 67 1f 0a 28 64 65 66 |s a stri|ng..(def|
|00002330| 61 6c 69 61 73 20 27 75 | 72 6c 2d 68 61 76 65 2d |alias 'u|rl-have-|
|00002340| 76 69 73 69 74 65 64 2d | 75 72 6c 20 23 5b 28 75 |visited-|url #[(u|
|00002350| 72 6c 20 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |rl &rest| args) "|
|00002360| c0 09 5c 6e 5c 22 87 22 | 20 5b 63 6c 2d 67 65 74 |..\n\"."| [cl-get|
|00002370| 68 61 73 68 20 75 72 6c | 20 75 72 6c 2d 67 6c 6f |hash url| url-glo|
|00002380| 62 61 6c 2d 68 69 73 74 | 6f 72 79 2d 68 61 73 68 |bal-hist|ory-hash|
|00002390| 2d 74 61 62 6c 65 5d 20 | 33 20 28 23 24 20 2e 20 |-table] |3 (#$ . |
|000023a0| 38 38 37 34 29 5d 29 0a | 23 40 33 37 20 52 65 74 |8874)]).|#@37 Ret|
|000023b0| 75 72 6e 20 61 20 6c 69 | 73 74 20 6f 66 20 66 69 |urn a li|st of fi|
|000023c0| 6c 65 73 20 6f 6e 20 61 | 20 73 65 72 76 65 72 2e |les on a| server.|
|000023d0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |..(defal|ias 'url|
|000023e0| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 69 6c 65 73 |-directo|ry-files|
|000023f0| 20 23 5b 28 75 72 6c 20 | 26 72 65 73 74 20 61 72 | #[(url |&rest ar|
|00002400| 67 73 29 20 22 c0 87 22 | 20 5b 6e 69 6c 5d 20 31 |gs) ".."| [nil] 1|
|00002410| 20 28 23 24 20 2e 20 39 | 31 33 33 29 5d 29 0a 23 | (#$ . 9|133)]).#|
|00002420| 40 34 35 20 52 65 74 75 | 72 6e 20 74 20 69 66 66 |@45 Retu|rn t iff|
|00002430| 20 61 20 75 72 6c 20 69 | 73 20 77 72 69 74 61 62 | a url i|s writab|
|00002440| 6c 65 20 62 79 20 74 68 | 69 73 20 75 73 65 72 1f |le by th|is user.|
|00002450| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 75 72 6c 2d |.(defali|as 'url-|
|00002460| 66 69 6c 65 2d 77 72 69 | 74 61 62 6c 65 2d 70 20 |file-wri|table-p |
|00002470| 23 5b 28 75 72 6c 20 26 | 72 65 73 74 20 61 72 67 |#[(url &|rest arg|
|00002480| 73 29 20 22 c0 87 22 20 | 5b 6e 69 6c 5d 20 31 20 |s) ".." |[nil] 1 |
|00002490| 28 23 24 20 2e 20 39 32 | 35 32 29 5d 29 0a 23 40 |(#$ . 92|52)]).#@|
|000024a0| 33 39 20 43 6f 70 79 20 | 61 20 75 72 6c 20 74 6f |39 Copy |a url to|
|000024b0| 20 74 68 65 20 73 70 65 | 63 69 66 69 65 64 20 66 | the spe|cified f|
|000024c0| 69 6c 65 6e 61 6d 65 2e | 1f 0a 28 64 65 66 61 6c |ilename.|..(defal|
|000024d0| 69 61 73 20 27 75 72 6c | 2d 63 6f 70 79 2d 66 69 |ias 'url|-copy-fi|
|000024e0| 6c 65 20 23 5b 28 75 72 | 6c 20 26 72 65 73 74 20 |le #[(ur|l &rest |
|000024f0| 61 72 67 73 29 20 22 c0 | 87 22 20 5b 6e 69 6c 5d |args) ".|." [nil]|
|00002500| 20 31 20 28 23 24 20 2e | 20 39 33 37 39 29 5d 29 | 1 (#$ .| 9379)])|
|00002510| 0a 23 40 31 30 31 20 52 | 65 74 75 72 6e 73 20 74 |.#@101 R|eturns t|
|00002520| 20 69 66 66 20 74 68 65 | 20 73 70 65 63 69 66 69 | iff the| specifi|
|00002530| 65 64 20 55 52 4c 20 69 | 73 20 64 69 72 65 63 74 |ed URL i|s direct|
|00002540| 6c 79 20 61 63 63 65 73 | 73 69 62 6c 65 0a 6f 6e |ly acces|sible.on|
|00002550| 20 79 6f 75 72 20 66 69 | 6c 65 73 79 73 74 65 6d | your fi|lesystem|
|00002560| 2e 20 20 28 6e 66 73 2c | 20 6c 6f 63 61 6c 20 66 |. (nfs,| local f|
|00002570| 69 6c 65 2c 20 65 74 63 | 29 2e 1f 0a 28 64 65 66 |ile, etc|)...(def|
|00002580| 61 6c 69 61 73 20 27 75 | 72 6c 2d 66 69 6c 65 2d |alias 'u|rl-file-|
|00002590| 64 69 72 65 63 74 6c 79 | 2d 61 63 63 65 73 73 69 |directly|-accessi|
|000025a0| 62 6c 65 2d 70 20 23 5b | 28 75 72 6c 29 20 22 c0 |ble-p #[|(url) ".|
|000025b0| 09 21 ab 83 09 aa 83 c2 | 09 21 89 1b c4 48 89 1d |.!......|.!...H..|
|000025c0| c6 b6 ad 84 0b c7 48 3f | 2a 87 22 20 5b 76 65 63 |......H?|*." [vec|
|000025d0| 74 6f 72 70 20 75 72 6c | 20 75 72 6c 2d 67 65 6e |torp url| url-gen|
|000025e0| 65 72 69 63 2d 70 61 72 | 73 65 2d 75 72 6c 20 75 |eric-par|se-url u|
|000025f0| 72 6c 6f 62 6a 20 30 20 | 74 79 70 65 20 28 22 66 |rlobj 0 |type ("f|
|00002600| 69 6c 65 22 20 22 66 74 | 70 22 29 20 33 5d 20 33 |ile" "ft|p") 3] 3|
|00002610| 20 28 23 24 20 2e 20 39 | 34 39 35 29 5d 29 0a 23 | (#$ . 9|495)]).#|
|00002620| 40 37 38 36 20 52 65 74 | 75 72 6e 20 61 20 6c 69 |@786 Ret|urn a li|
|00002630| 73 74 20 6f 66 20 61 74 | 74 72 69 62 75 74 65 73 |st of at|tributes|
|00002640| 20 6f 66 20 55 52 4c 2e | 0a 56 61 6c 75 65 20 69 | of URL.|.Value i|
|00002650| 73 20 6e 69 6c 20 69 66 | 20 73 70 65 63 69 66 69 |s nil if| specifi|
|00002660| 65 64 20 66 69 6c 65 20 | 63 61 6e 6e 6f 74 20 62 |ed file |cannot b|
|00002670| 65 20 6f 70 65 6e 65 64 | 2e 0a 4f 74 68 65 72 77 |e opened|..Otherw|
|00002680| 69 73 65 2c 20 6c 69 73 | 74 20 65 6c 65 6d 65 6e |ise, lis|t elemen|
|00002690| 74 73 20 61 72 65 3a 0a | 20 30 2e 20 74 20 66 6f |ts are:.| 0. t fo|
|000026a0| 72 20 64 69 72 65 63 74 | 6f 72 79 2c 20 73 74 72 |r direct|ory, str|
|000026b0| 69 6e 67 20 28 6e 61 6d | 65 20 6c 69 6e 6b 65 64 |ing (nam|e linked|
|000026c0| 20 74 6f 29 20 66 6f 72 | 20 73 79 6d 62 6f 6c 69 | to) for| symboli|
|000026d0| 63 20 6c 69 6e 6b 2c 20 | 6f 72 20 6e 69 6c 2e 0a |c link, |or nil..|
|000026e0| 20 31 2e 20 4e 75 6d 62 | 65 72 20 6f 66 20 6c 69 | 1. Numb|er of li|
|000026f0| 6e 6b 73 20 74 6f 20 66 | 69 6c 65 2e 0a 20 32 2e |nks to f|ile.. 2.|
|00002700| 20 46 69 6c 65 20 75 69 | 64 2e 0a 20 33 2e 20 46 | File ui|d.. 3. F|
|00002710| 69 6c 65 20 67 69 64 2e | 0a 20 34 2e 20 4c 61 73 |ile gid.|. 4. Las|
|00002720| 74 20 61 63 63 65 73 73 | 20 74 69 6d 65 2c 20 61 |t access| time, a|
|00002730| 73 20 61 20 6c 69 73 74 | 20 6f 66 20 74 77 6f 20 |s a list| of two |
|00002740| 69 6e 74 65 67 65 72 73 | 2e 0a 20 20 46 69 72 73 |integers|.. Firs|
|00002750| 74 20 69 6e 74 65 67 65 | 72 20 68 61 73 20 68 69 |t intege|r has hi|
|00002760| 67 68 2d 6f 72 64 65 72 | 20 31 36 20 62 69 74 73 |gh-order| 16 bits|
|00002770| 20 6f 66 20 74 69 6d 65 | 2c 20 73 65 63 6f 6e 64 | of time|, second|
|00002780| 20 68 61 73 20 6c 6f 77 | 20 31 36 20 62 69 74 73 | has low| 16 bits|
|00002790| 2e 0a 20 35 2e 20 4c 61 | 73 74 20 6d 6f 64 69 66 |.. 5. La|st modif|
|000027a0| 69 63 61 74 69 6f 6e 20 | 74 69 6d 65 2c 20 6c 69 |ication |time, li|
|000027b0| 6b 65 77 69 73 65 2e 0a | 20 36 2e 20 4c 61 73 74 |kewise..| 6. Last|
|000027c0| 20 73 74 61 74 75 73 20 | 63 68 61 6e 67 65 20 74 | status |change t|
|000027d0| 69 6d 65 2c 20 6c 69 6b | 65 77 69 73 65 2e 0a 20 |ime, lik|ewise.. |
|000027e0| 37 2e 20 53 69 7a 65 20 | 69 6e 20 62 79 74 65 73 |7. Size |in bytes|
|000027f0| 2e 20 28 2d 31 2c 20 69 | 66 20 6e 75 6d 62 65 72 |. (-1, i|f number|
|00002800| 20 69 73 20 6f 75 74 20 | 6f 66 20 72 61 6e 67 65 | is out |of range|
|00002810| 29 2e 0a 20 38 2e 20 46 | 69 6c 65 20 6d 6f 64 65 |).. 8. F|ile mode|
|00002820| 73 2c 20 61 73 20 61 20 | 73 74 72 69 6e 67 20 6f |s, as a |string o|
|00002830| 66 20 74 65 6e 20 6c 65 | 74 74 65 72 73 20 6f 72 |f ten le|tters or|
|00002840| 20 64 61 73 68 65 73 20 | 61 73 20 69 6e 20 6c 73 | dashes |as in ls|
|00002850| 20 2d 6c 2e 0a 20 20 20 | 20 49 66 20 55 52 4c 20 | -l.. | If URL |
|00002860| 69 73 20 6f 6e 20 61 6e | 20 68 74 74 70 20 73 65 |is on an| http se|
|00002870| 72 76 65 72 2c 20 74 68 | 69 73 20 77 69 6c 6c 20 |rver, th|is will |
|00002880| 72 65 74 75 72 6e 20 74 | 68 65 20 63 6f 6e 74 65 |return t|he conte|
|00002890| 6e 74 2d 74 79 70 65 20 | 69 66 20 70 6f 73 73 69 |nt-type |if possi|
|000028a0| 62 6c 65 2e 0a 20 39 2e | 20 74 20 69 66 66 20 66 |ble.. 9.| t iff f|
|000028b0| 69 6c 65 27 73 20 67 69 | 64 20 77 6f 75 6c 64 20 |ile's gi|d would |
|000028c0| 63 68 61 6e 67 65 20 69 | 66 20 66 69 6c 65 20 77 |change i|f file w|
|000028d0| 65 72 65 20 64 65 6c 65 | 74 65 64 20 61 6e 64 20 |ere dele|ted and |
|000028e0| 72 65 63 72 65 61 74 65 | 64 2e 0a 31 30 2e 20 69 |recreate|d..10. i|
|000028f0| 6e 6f 64 65 20 6e 75 6d | 62 65 72 2e 0a 31 31 2e |node num|ber..11.|
|00002900| 20 44 65 76 69 63 65 20 | 6e 75 6d 62 65 72 2e 0a | Device |number..|
|00002910| 0a 49 66 20 66 69 6c 65 | 20 64 6f 65 73 20 6e 6f |.If file| does no|
|00002920| 74 20 65 78 69 73 74 2c | 20 72 65 74 75 72 6e 73 |t exist,| returns|
|00002930| 20 6e 69 6c 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 | nil...(|defalias|
|00002940| 20 27 75 72 6c 2d 66 69 | 6c 65 2d 61 74 74 72 69 | 'url-fi|le-attri|
|00002950| 62 75 74 65 73 20 23 5b | 28 75 72 6c 20 26 72 65 |butes #[|(url &re|
|00002960| 73 74 20 61 72 67 73 29 | 20 22 08 85 c0 00 c1 08 |st args)| "......|
|00002970| 21 89 1a c3 48 1c c5 1e | 06 c5 1e 07 c5 1e 08 0c |!...H...|........|
|00002980| c9 6b ab dd 0e 5c 6e ac | a0 cb 08 21 cc c3 89 89 |.k...\n.|...!....|
|00002990| 89 42 c3 89 42 c3 89 42 | cd ce cf 5c 6e d0 48 21 |.B..B..B|...\n.H!|
|000029a0| 21 c5 c3 89 af 0c 16 07 | aa ff d1 c5 d2 1e 13 1e |!.......|........|
|000029b0| 14 1e 15 8a c5 d6 d7 8f | 88 0e 07 ac 9f cb 08 21 |........|.......!|
|000029c0| cc c3 89 89 89 42 c3 89 | 42 c3 89 42 cd ce cf 0e |.....B..|B..B....|
|000029d0| 18 d0 48 21 21 c5 c3 89 | af 0c 16 07 d9 d2 21 88 |..H!!...|......!.|
|000029e0| 2c aa c6 0c da b6 ab c1 | 5c 6e db 48 ab 99 dc 5c |,.......|\n.H...\|
|000029f0| 6e cc 48 ab 87 5c 6e cc | 48 dd 50 aa 81 de 5c 6e |n.H..\n.|H.P...\n|
|00002a00| db 48 df 5c 6e d0 48 b0 | 05 aa 83 5c 6e d0 48 1e |.H.\n.H.|...\n.H.|
|00002a10| 20 e1 0e 20 21 ae 84 e2 | e3 c5 5c 22 89 16 07 41 | .. !...|..\"...A|
|00002a20| 41 41 41 41 41 41 41 ce | cf 0e 20 21 21 a0 88 29 |AAAAAAA.|.. !!..)|
|00002a30| 0e 07 2d 87 22 20 5b 75 | 72 6c 20 75 72 6c 2d 67 |..-." [u|rl url-g|
|00002a40| 65 6e 65 72 69 63 2d 70 | 61 72 73 65 2d 75 72 6c |eneric-p|arse-url|
|00002a50| 20 75 72 6c 6f 62 6a 20 | 30 20 74 79 70 65 20 6e | urlobj |0 type n|
|00002a60| 69 6c 20 75 72 6c 2d 61 | 75 74 6f 6d 61 74 69 63 |il url-a|utomatic|
|00002a70| 2d 63 61 63 68 69 6e 67 | 20 64 61 74 61 20 65 78 |-caching| data ex|
|00002a80| 69 73 74 73 20 22 68 74 | 74 70 22 20 75 72 6c 2d |ists "ht|tp" url-|
|00002a90| 62 65 2d 61 6e 61 6c 2d | 61 62 6f 75 74 2d 66 69 |be-anal-|about-fi|
|00002aa0| 6c 65 2d 61 74 74 72 69 | 62 75 74 65 73 20 75 72 |le-attri|butes ur|
|00002ab0| 6c 2d 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |l-file-d|irectory|
|00002ac0| 2d 70 20 31 20 2d 31 20 | 6d 6d 2d 65 78 74 65 6e |-p 1 -1 |mm-exten|
|00002ad0| 73 69 6f 6e 2d 74 6f 2d | 6d 69 6d 65 20 75 72 6c |sion-to-|mime url|
|00002ae0| 2d 66 69 6c 65 2d 65 78 | 74 65 6e 73 69 6f 6e 20 |-file-ex|tension |
|00002af0| 35 20 22 48 45 41 44 22 | 20 22 20 2a 75 72 6c 2d |5 "HEAD"| " *url-|
|00002b00| 74 65 6d 70 2a 22 20 75 | 72 6c 2d 77 6f 72 6b 69 |temp*" u|rl-worki|
|00002b10| 6e 67 2d 62 75 66 66 65 | 72 20 75 72 6c 2d 72 65 |ng-buffe|r url-re|
|00002b20| 71 75 65 73 74 2d 64 61 | 74 61 20 75 72 6c 2d 72 |quest-da|ta url-r|
|00002b30| 65 71 75 65 73 74 2d 6d | 65 74 68 6f 64 20 28 62 |equest-m|ethod (b|
|00002b40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 21 88 c2 c3 |yte-code| "..!...|
|00002b50| 0c 5c 22 41 89 15 ad b5 | 0d c6 59 ad b0 0d c7 57 |.\"A....|..Y....W|
|00002b60| ad ab c8 09 21 c9 ca 89 | 89 89 42 ca 89 42 ca 89 |....!...|..B..B..|
|00002b70| 42 c2 cb 0c 5c 22 41 ae | 81 cc c2 cd 0c 5c 22 41 |B...\"A.|.....\"A|
|00002b80| ae 88 ce cf 0e 10 d1 48 | 21 21 d2 ca 89 af 0c 16 |.......H|!!......|
|00002b90| 13 d2 87 22 20 5b 75 72 | 6c 2d 72 65 74 72 69 65 |..." [ur|l-retrie|
|00002ba0| 76 65 20 75 72 6c 20 61 | 73 73 6f 63 20 22 73 74 |ve url a|ssoc "st|
|00002bb0| 61 74 75 73 22 20 75 72 | 6c 2d 63 75 72 72 65 6e |atus" ur|l-curren|
|00002bc0| 74 2d 6d 69 6d 65 2d 68 | 65 61 64 65 72 73 20 65 |t-mime-h|eaders e|
|00002bd0| 78 69 73 74 73 20 32 30 | 30 20 33 30 30 20 75 72 |xists 20|0 300 ur|
|00002be0| 6c 2d 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |l-file-d|irectory|
|00002bf0| 2d 70 20 31 20 30 20 22 | 63 6f 6e 74 65 6e 74 2d |-p 1 0 "|content-|
|00002c00| 6c 65 6e 67 74 68 22 20 | 2d 31 20 22 63 6f 6e 74 |length" |-1 "cont|
|00002c10| 65 6e 74 2d 74 79 70 65 | 22 20 6d 6d 2d 65 78 74 |ent-type|" mm-ext|
|00002c20| 65 6e 73 69 6f 6e 2d 74 | 6f 2d 6d 69 6d 65 20 75 |ension-t|o-mime u|
|00002c30| 72 6c 2d 66 69 6c 65 2d | 65 78 74 65 6e 73 69 6f |rl-file-|extensio|
|00002c40| 6e 20 75 72 6c 6f 62 6a | 20 35 20 6e 69 6c 20 64 |n urlobj| 5 nil d|
|00002c50| 61 74 61 5d 20 31 32 29 | 20 28 28 65 72 72 6f 72 |ata] 12)| ((error|
|00002c60| 29 29 20 75 72 6c 2d 63 | 75 72 72 65 6e 74 2d 6f |)) url-c|urrent-o|
|00002c70| 62 6a 65 63 74 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |bject ki|ll-buffe|
|00002c80| 72 20 28 22 66 74 70 22 | 20 22 66 69 6c 65 22 29 |r ("ftp"| "file")|
|00002c90| 20 33 20 22 2f 22 20 22 | 40 22 20 22 22 20 22 3a | 3 "/" "|@" "" ":|
|00002ca0| 22 20 66 6e 61 6d 65 20 | 66 69 6c 65 2d 61 74 74 |" fname |file-att|
|00002cb0| 72 69 62 75 74 65 73 20 | 6d 61 6b 65 2d 6c 69 73 |ributes |make-lis|
|00002cc0| 74 20 31 32 5d 20 31 33 | 20 28 23 24 20 2e 20 39 |t 12] 13| (#$ . 9|
|00002cd0| 37 36 35 29 5d 29 0a 23 | 40 31 33 35 20 52 65 74 |765)]).#|@135 Ret|
|00002ce0| 75 72 6e 20 61 20 6c 69 | 73 74 20 6f 66 20 61 6c |urn a li|st of al|
|00002cf0| 6c 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 6f 66 |l comple|tions of|
|00002d00| 20 66 69 6c 65 20 6e 61 | 6d 65 20 46 49 4c 45 20 | file na|me FILE |
|00002d10| 69 6e 20 64 69 72 65 63 | 74 6f 72 79 20 44 49 52 |in direc|tory DIR|
|00002d20| 2e 0a 54 68 65 73 65 20 | 61 72 65 20 61 6c 6c 20 |..These |are all |
|00002d30| 66 69 6c 65 20 6e 61 6d | 65 73 20 69 6e 20 64 69 |file nam|es in di|
|00002d40| 72 65 63 74 6f 72 79 20 | 44 49 52 20 77 68 69 63 |rectory |DIR whic|
|00002d50| 68 20 62 65 67 69 6e 20 | 77 69 74 68 20 46 49 4c |h begin |with FIL|
|00002d60| 45 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |E...(def|alias 'u|
|00002d70| 72 6c 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 61 6c 6c |rl-file-|name-all|
|00002d80| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 23 5b 28 |-complet|ions #[(|
|00002d90| 66 69 6c 65 20 64 69 72 | 6e 61 6d 65 20 26 72 65 |file dir|name &re|
|00002da0| 73 74 20 61 72 67 73 29 | 20 22 c0 87 22 20 5b 6e |st args)| ".." [n|
|00002db0| 69 6c 5d 20 31 20 28 23 | 24 20 2e 20 31 31 34 38 |il] 1 (#|$ . 1148|
|00002dc0| 35 29 5d 29 0a 23 40 32 | 34 30 20 43 6f 6d 70 6c |5)]).#@2|40 Compl|
|00002dd0| 65 74 65 20 66 69 6c 65 | 20 6e 61 6d 65 20 46 49 |ete file| name FI|
|00002de0| 4c 45 20 69 6e 20 64 69 | 72 65 63 74 6f 72 79 20 |LE in di|rectory |
|00002df0| 44 49 52 2e 0a 52 65 74 | 75 72 6e 73 20 74 68 65 |DIR..Ret|urns the|
|00002e00| 20 6c 6f 6e 67 65 73 74 | 20 73 74 72 69 6e 67 0a | longest| string.|
|00002e10| 63 6f 6d 6d 6f 6e 20 74 | 6f 20 61 6c 6c 20 66 69 |common t|o all fi|
|00002e20| 6c 65 6e 61 6d 65 73 20 | 69 6e 20 44 49 52 20 74 |lenames |in DIR t|
|00002e30| 68 61 74 20 73 74 61 72 | 74 20 77 69 74 68 20 46 |hat star|t with F|
|00002e40| 49 4c 45 2e 0a 49 66 20 | 74 68 65 72 65 20 69 73 |ILE..If |there is|
|00002e50| 20 6f 6e 6c 79 20 6f 6e | 65 20 61 6e 64 20 46 49 | only on|e and FI|
|00002e60| 4c 45 20 6d 61 74 63 68 | 65 73 20 69 74 20 65 78 |LE match|es it ex|
|00002e70| 61 63 74 6c 79 2c 20 72 | 65 74 75 72 6e 73 20 74 |actly, r|eturns t|
|00002e80| 2e 0a 52 65 74 75 72 6e | 73 20 6e 69 6c 20 69 66 |..Return|s nil if|
|00002e90| 20 44 49 52 20 63 6f 6e | 74 61 69 6e 73 20 6e 6f | DIR con|tains no|
|00002ea0| 20 6e 61 6d 65 20 73 74 | 61 72 74 69 6e 67 20 77 | name st|arting w|
|00002eb0| 69 74 68 20 46 49 4c 45 | 2e 1f 0a 28 64 65 66 61 |ith FILE|...(defa|
|00002ec0| 6c 69 61 73 20 27 75 72 | 6c 2d 66 69 6c 65 2d 6e |lias 'ur|l-file-n|
|00002ed0| 61 6d 65 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 23 |ame-comp|letion #|
|00002ee0| 5b 28 66 69 6c 65 20 64 | 69 72 6e 61 6d 65 20 26 |[(file d|irname &|
|00002ef0| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 c1 5c 6e |rest arg|s) "..\n|
|00002f00| 0b 0c 24 87 22 20 5b 61 | 70 70 6c 79 20 75 72 6c |..$." [a|pply url|
|00002f10| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 61 6c 6c 2d 63 |-file-na|me-all-c|
|00002f20| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 66 69 6c 65 20 |ompletio|ns file |
|00002f30| 64 69 72 6e 61 6d 65 20 | 61 72 67 73 5d 20 35 20 |dirname |args] 5 |
|00002f40| 28 23 24 20 2e 20 31 31 | 37 32 33 29 5d 29 0a 23 |(#$ . 11|723)]).#|
|00002f50| 40 31 33 35 20 43 6f 70 | 79 20 74 68 65 20 66 69 |@135 Cop|y the fi|
|00002f60| 6c 65 20 46 49 4c 45 20 | 69 6e 74 6f 20 61 20 74 |le FILE |into a t|
|00002f70| 65 6d 70 6f 72 61 72 79 | 20 66 69 6c 65 20 6f 6e |emporary| file on|
|00002f80| 20 74 68 69 73 20 6d 61 | 63 68 69 6e 65 2e 0a 52 | this ma|chine..R|
|00002f90| 65 74 75 72 6e 73 20 74 | 68 65 20 6e 61 6d 65 20 |eturns t|he name |
|00002fa0| 6f 66 20 74 68 65 20 6c | 6f 63 61 6c 20 63 6f 70 |of the l|ocal cop|
|00002fb0| 79 2c 20 6f 72 20 6e 69 | 6c 2c 20 69 66 20 46 49 |y, or ni|l, if FI|
|00002fc0| 4c 45 20 69 73 20 64 69 | 72 65 63 74 6c 79 0a 61 |LE is di|rectly.a|
|00002fd0| 63 63 65 73 73 69 62 6c | 65 2e 1f 0a 28 64 65 66 |ccessibl|e...(def|
|00002fe0| 61 6c 69 61 73 20 27 75 | 72 6c 2d 66 69 6c 65 2d |alias 'u|rl-file-|
|00002ff0| 6c 6f 63 61 6c 2d 63 6f | 70 79 20 23 5b 28 66 69 |local-co|py #[(fi|
|00003000| 6c 65 20 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |le &rest| args) "|
|00003010| c0 87 22 20 5b 6e 69 6c | 5d 20 31 20 28 23 24 20 |.." [nil|] 1 (#$ |
|00003020| 2e 20 31 32 31 31 37 29 | 5d 29 0a 23 40 34 38 20 |. 12117)|]).#@48 |
|00003030| 49 6e 73 65 72 74 20 74 | 68 65 20 63 6f 6e 74 65 |Insert t|he conte|
|00003040| 6e 74 73 20 6f 66 20 74 | 68 65 20 55 52 4c 20 69 |nts of t|he URL i|
|00003050| 6e 20 74 68 69 73 20 62 | 75 66 66 65 72 2e 1f 0a |n this b|uffer...|
|00003060| 28 64 65 66 61 6c 69 61 | 73 20 27 75 72 6c 2d 69 |(defalia|s 'url-i|
|00003070| 6e 73 65 72 74 2d 66 69 | 6c 65 2d 63 6f 6e 74 65 |nsert-fi|le-conte|
|00003080| 6e 74 73 20 23 5b 28 75 | 72 6c 20 26 72 65 73 74 |nts #[(u|rl &rest|
|00003090| 20 61 72 67 73 29 20 22 | 8a c0 c1 21 1a c3 8e c4 | args) "|...!....|
|000030a0| c1 c5 5c 22 88 70 c6 0e | 07 21 41 1e 08 1e 09 0e |..\".p..|.!A.....|
|000030b0| 08 71 88 ca 20 88 0e 09 | 71 88 cb 0e 08 21 88 0e |.q.. ...|q....!..|
|000030c0| 07 16 0c 8a 0e 08 71 88 | cd c5 21 88 29 ce 0e 08 |......q.|..!.)...|
|000030d0| 21 2d 87 22 20 5b 64 65 | 66 61 75 6c 74 2d 76 61 |!-." [de|fault-va|
|000030e0| 6c 75 65 20 75 72 6c 2d | 62 65 2d 61 73 79 6e 63 |lue url-|be-async|
|000030f0| 68 72 6f 6e 6f 75 73 20 | 6f 6c 64 2d 61 73 79 6e |hronous |old-asyn|
|00003100| 63 68 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ch ((byt|e-code "|
|00003110| c0 c1 5c 6e 5c 22 87 22 | 20 5b 73 65 74 2d 64 65 |..\n\"."| [set-de|
|00003120| 66 61 75 6c 74 20 75 72 | 6c 2d 62 65 2d 61 73 79 |fault ur|l-be-asy|
|00003130| 6e 63 68 72 6f 6e 6f 75 | 73 20 6f 6c 64 2d 61 73 |nchronou|s old-as|
|00003140| 79 6e 63 68 5d 20 33 29 | 29 20 73 65 74 2d 64 65 |ynch] 3)|) set-de|
|00003150| 66 61 75 6c 74 20 6e 69 | 6c 20 75 72 6c 2d 72 65 |fault ni|l url-re|
|00003160| 74 72 69 65 76 65 20 75 | 72 6c 20 75 72 6c 2d 77 |trieve u|rl url-w|
|00003170| 6f 72 6b 69 6e 67 2d 62 | 75 66 66 65 72 20 62 75 |orking-b|uffer bu|
|00003180| 66 20 75 72 6c 2d 75 6e | 63 6f 6d 70 72 65 73 73 |f url-un|compress|
|00003190| 20 69 6e 73 65 72 74 2d | 62 75 66 66 65 72 20 62 | insert-|buffer b|
|000031a0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000031b0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000031c0| 69 65 64 2d 70 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |ied-p ki|ll-buffe|
|000031d0| 72 5d 20 33 20 28 23 24 | 20 2e 20 31 32 33 33 36 |r] 3 (#$| . 12336|
|000031e0| 29 20 22 73 55 52 4c 3a | 20 22 5d 29 0a 23 40 34 |) "sURL:| "]).#@4|
|000031f0| 32 20 52 65 74 75 72 6e | 20 74 20 69 66 66 20 61 |2 Return| t iff a|
|00003200| 20 75 72 6c 20 70 6f 69 | 6e 74 73 20 74 6f 20 61 | url poi|nts to a|
|00003210| 20 64 69 72 65 63 74 6f | 72 79 1f 0a 28 64 65 66 | directo|ry..(def|
|00003220| 61 6c 69 61 73 20 27 75 | 72 6c 2d 66 69 6c 65 2d |alias 'u|rl-file-|
|00003230| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 23 5b 28 75 |director|y-p #[(u|
|00003240| 72 6c 20 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |rl &rest| args) "|
|00003250| 08 c1 c2 4f c3 6b 87 22 | 20 5b 75 72 6c 20 2d 31 |...O.k."| [url -1|
|00003260| 20 6e 69 6c 20 22 2f 22 | 5d 20 33 20 28 23 24 20 | nil "/"|] 3 (#$ |
|00003270| 2e 20 31 32 37 38 36 29 | 5d 29 0a 23 40 32 39 20 |. 12786)|]).#@29 |
|00003280| 52 65 74 75 72 6e 20 74 | 20 69 66 66 20 61 20 66 |Return t| iff a f|
|00003290| 69 6c 65 20 65 78 69 73 | 74 73 2e 1f 0a 28 64 65 |ile exis|ts...(de|
|000032a0| 66 61 6c 69 61 73 20 27 | 75 72 6c 2d 66 69 6c 65 |falias '|url-file|
|000032b0| 2d 65 78 69 73 74 73 20 | 23 5b 28 75 72 6c 20 26 |-exists |#[(url &|
|000032c0| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 09 21 89 |rest arg|s) "..!.|
|000032d0| 1a c3 48 1c c5 1e 06 0c | c7 6b ab ac c8 c5 c9 1e |..H.....|.k......|
|000032e0| 5c 6e 1e 0b 1e 0c 8a cd | 09 21 88 ce cf 0e 10 5c |\n......|.!.....\|
|000032f0| 22 41 ae 81 d1 16 06 d2 | c9 21 88 0e 06 d3 59 ad |"A......|.!....Y.|
|00003300| 84 0e 06 d4 57 16 06 2c | aa af 0c d5 b6 ab aa 5c |....W..,|.......\|
|00003310| 6e d6 48 ab 99 d7 5c 6e | d8 48 ab 87 5c 6e d8 48 |n.H...\n|.H..\n.H|
|00003320| d9 50 aa 81 da 5c 6e d6 | 48 db 5c 6e dc 48 b0 05 |.P...\n.|H.\n.H..|
|00003330| aa 83 5c 6e dc 48 1e 1d | de 0e 1d 21 16 06 29 0e |..\n.H..|...!..).|
|00003340| 06 2b 87 22 20 5b 75 72 | 6c 2d 67 65 6e 65 72 69 |.+." [ur|l-generi|
|00003350| 63 2d 70 61 72 73 65 2d | 75 72 6c 20 75 72 6c 20 |c-parse-|url url |
|00003360| 75 72 6c 6f 62 6a 20 30 | 20 74 79 70 65 20 6e 69 |urlobj 0| type ni|
|00003370| 6c 20 65 78 69 73 74 73 | 20 22 68 74 74 70 22 20 |l exists| "http" |
|00003380| 22 48 45 41 44 22 20 22 | 20 2a 75 72 6c 2d 74 65 |"HEAD" "| *url-te|
|00003390| 6d 70 2a 22 20 75 72 6c | 2d 77 6f 72 6b 69 6e 67 |mp*" url|-working|
|000033a0| 2d 62 75 66 66 65 72 20 | 75 72 6c 2d 72 65 71 75 |-buffer |url-requ|
|000033b0| 65 73 74 2d 64 61 74 61 | 20 75 72 6c 2d 72 65 71 |est-data| url-req|
|000033c0| 75 65 73 74 2d 6d 65 74 | 68 6f 64 20 75 72 6c 2d |uest-met|hod url-|
|000033d0| 72 65 74 72 69 65 76 65 | 20 61 73 73 6f 63 20 22 |retrieve| assoc "|
|000033e0| 73 74 61 74 75 73 22 20 | 75 72 6c 2d 63 75 72 72 |status" |url-curr|
|000033f0| 65 6e 74 2d 6d 69 6d 65 | 2d 68 65 61 64 65 72 73 |ent-mime|-headers|
|00003400| 20 35 30 30 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 | 500 kil|l-buffer|
|00003410| 20 32 30 30 20 33 30 30 | 20 28 22 66 74 70 22 20 | 200 300| ("ftp" |
|00003420| 22 66 69 6c 65 22 29 20 | 33 20 22 2f 22 20 31 20 |"file") |3 "/" 1 |
|00003430| 22 40 22 20 22 22 20 22 | 3a 22 20 35 20 66 6e 61 |"@" "" "|:" 5 fna|
|00003440| 6d 65 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |me file-|exists-p|
|00003450| 5d 20 37 20 28 23 24 20 | 2e 20 31 32 39 32 38 29 |] 7 (#$ |. 12928)|
|00003460| 5d 29 0a 23 40 38 33 20 | 52 65 74 75 72 6e 20 61 |]).#@83 |Return a|
|00003470| 20 27 6e 6f 72 6d 61 6c | 69 7a 65 64 27 20 76 65 | 'normal|ized' ve|
|00003480| 72 73 69 6f 6e 20 6f 66 | 20 55 52 4c 2e 20 20 54 |rsion of| URL. T|
|00003490| 68 69 73 20 73 74 72 69 | 70 73 20 6f 75 74 20 64 |his stri|ps out d|
|000034a0| 65 66 61 75 6c 74 20 70 | 6f 72 74 0a 6e 75 6d 62 |efault p|ort.numb|
|000034b0| 65 72 73 2c 20 65 74 63 | 2e 1f 0a 28 64 65 66 61 |ers, etc|...(defa|
|000034c0| 6c 69 61 73 20 27 75 72 | 6c 2d 6e 6f 72 6d 61 6c |lias 'ur|l-normal|
|000034d0| 69 7a 65 2d 75 72 6c 20 | 23 5b 28 75 72 6c 29 20 |ize-url |#[(url) |
|000034e0| 22 c0 89 89 89 19 1a 1b | 1c c5 0e 06 21 89 13 c7 |".......|....!...|
|000034f0| 48 89 14 c8 b6 ab 85 0e | 06 11 aa 89 0b c9 c0 49 |H.......|.......I|
|00003500| 88 ca 0b 21 11 09 2c 87 | 22 20 5b 6e 69 6c 20 72 |...!..,.|" [nil r|
|00003510| 65 74 76 61 6c 20 67 72 | 6f 6b 20 64 61 74 61 20 |etval gr|ok data |
|00003520| 74 79 70 65 20 75 72 6c | 2d 67 65 6e 65 72 69 63 |type url|-generic|
|00003530| 2d 70 61 72 73 65 2d 75 | 72 6c 20 75 72 6c 20 30 |-parse-u|rl url 0|
|00003540| 20 28 22 77 77 77 22 20 | 22 61 62 6f 75 74 22 20 | ("www" |"about" |
|00003550| 22 6d 61 69 6c 74 6f 22 | 20 22 6d 61 69 6c 73 65 |"mailto"| "mailse|
|00003560| 72 76 65 72 22 20 22 69 | 6e 66 6f 22 29 20 36 20 |rver" "i|nfo") 6 |
|00003570| 75 72 6c 2d 72 65 63 72 | 65 61 74 65 2d 75 72 6c |url-recr|eate-url|
|00003580| 5d 20 35 20 28 23 24 20 | 2e 20 31 33 34 31 36 29 |] 5 (#$ |. 13416)|
|00003590| 5d 29 0a 23 40 36 30 20 | 52 65 74 75 72 6e 20 74 |]).#@60 |Return t|
|000035a0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 20 62 75 66 |he name |of a buf|
|000035b0| 66 65 72 20 28 69 66 20 | 61 6e 79 29 20 74 68 61 |fer (if |any) tha|
|000035c0| 74 20 69 73 20 76 69 73 | 69 74 69 6e 67 20 55 52 |t is vis|iting UR|
|000035d0| 4c 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |L...(def|alias 'u|
|000035e0| 72 6c 2d 62 75 66 66 65 | 72 2d 76 69 73 69 74 69 |rl-buffe|r-visiti|
|000035f0| 6e 67 20 23 5b 28 75 72 | 6c 29 20 22 c0 09 21 11 |ng #[(ur|l) "..!.|
|00003600| c2 20 c3 1c 1d 0d ab aa | 0c ac a7 8a 0d 40 71 88 |. ......|.....@q.|
|00003610| c6 c7 c8 0d 40 21 5c 22 | 3f ad 91 0e 09 ca 73 ad |....@!\"|?.....s.|
|00003620| 8b c0 cb cc 21 21 09 6b | ad 82 0d 40 14 0d 41 15 |....!!.k|...@..A.|
|00003630| 29 aa 53 0c 2a 87 22 20 | 5b 75 72 6c 2d 6e 6f 72 |).S.*." |[url-nor|
|00003640| 6d 61 6c 69 7a 65 2d 75 | 72 6c 20 75 72 6c 20 62 |malize-u|rl url b|
|00003650| 75 66 66 65 72 2d 6c 69 | 73 74 20 6e 69 6c 20 66 |uffer-li|st nil f|
|00003660| 6f 75 6e 64 20 62 75 66 | 73 20 73 74 72 69 6e 67 |ound buf|s string|
|00003670| 2d 6d 61 74 63 68 20 22 | 20 5c 5c 2a 55 52 4c 2d |-match "| \\*URL-|
|00003680| 3f 5b 30 2d 39 5d 2a 5c | 5c 2a 22 20 62 75 66 66 |?[0-9]*\|\*" buff|
|00003690| 65 72 2d 6e 61 6d 65 20 | 6d 61 6a 6f 72 2d 6d 6f |er-name |major-mo|
|000036a0| 64 65 20 28 75 72 6c 2d | 6d 6f 64 65 20 77 33 2d |de (url-|mode w3-|
|000036b0| 6d 6f 64 65 29 20 75 72 | 6c 2d 76 69 65 77 2d 75 |mode) ur|l-view-u|
|000036c0| 72 6c 20 74 5d 20 34 20 | 28 23 24 20 2e 20 31 33 |rl t] 4 |(#$ . 13|
|000036d0| 37 32 30 29 5d 29 0a 23 | 40 36 37 20 52 65 74 75 |720)]).#|@67 Retu|
|000036e0| 72 6e 20 74 68 65 20 73 | 69 7a 65 20 6f 66 20 61 |rn the s|ize of a|
|000036f0| 20 66 69 6c 65 20 69 6e | 20 62 79 74 65 73 2c 20 | file in| bytes, |
|00003700| 6f 72 20 2d 31 20 69 66 | 20 63 61 6e 27 74 20 62 |or -1 if| can't b|
|00003710| 65 20 64 65 74 65 72 6d | 69 6e 65 64 2e 1f 0a 28 |e determ|ined...(|
|00003720| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 66 69 |defalias| 'url-fi|
|00003730| 6c 65 2d 73 69 7a 65 20 | 23 5b 28 75 72 6c 20 26 |le-size |#[(url &|
|00003740| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 09 21 89 |rest arg|s) "..!.|
|00003750| 1a c3 48 1c c5 1e 06 c7 | 1e 08 0c c9 6b ab a0 ca |..H.....|....k...|
|00003760| c7 cb 1e 0c 1e 0d 1e 0e | 8a cf 09 21 88 d0 d1 0e |........|...!....|
|00003770| 12 5c 22 41 ae 81 c5 16 | 06 d3 cb 21 88 2c aa b5 |.\"A....|...!.,..|
|00003780| 0c d4 b6 ab b0 5c 6e d5 | 48 ab 99 d6 5c 6e d7 48 |.....\n.|H...\n.H|
|00003790| ab 87 5c 6e d7 48 d8 50 | aa 81 d9 5c 6e d5 48 da |..\n.H.P|...\n.H.|
|000037a0| 5c 6e db 48 b0 05 aa 83 | 5c 6e db 48 1e 1c dd 0e |\n.H....|\n.H....|
|000037b0| 1c 21 16 08 de 0e 08 38 | 16 06 29 0e 06 3b ab 86 |.!.....8|..)..;..|
|000037c0| df 0e 06 21 aa 91 0e 06 | a8 ab 84 0e 06 aa 88 0e |...!....|........|
|000037d0| 06 ac 83 c5 aa 81 c5 2c | 87 22 20 5b 75 72 6c 2d |.......,|." [url-|
|000037e0| 67 65 6e 65 72 69 63 2d | 70 61 72 73 65 2d 75 72 |generic-|parse-ur|
|000037f0| 6c 20 75 72 6c 20 75 72 | 6c 6f 62 6a 20 30 20 74 |l url ur|lobj 0 t|
|00003800| 79 70 65 20 2d 31 20 73 | 69 7a 65 20 6e 69 6c 20 |ype -1 s|ize nil |
|00003810| 64 61 74 61 20 22 68 74 | 74 70 22 20 22 48 45 41 |data "ht|tp" "HEA|
|00003820| 44 22 20 22 20 2a 75 72 | 6c 2d 74 65 6d 70 2a 22 |D" " *ur|l-temp*"|
|00003830| 20 75 72 6c 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 | url-wor|king-buf|
|00003840| 66 65 72 20 75 72 6c 2d | 72 65 71 75 65 73 74 2d |fer url-|request-|
|00003850| 64 61 74 61 20 75 72 6c | 2d 72 65 71 75 65 73 74 |data url|-request|
|00003860| 2d 6d 65 74 68 6f 64 20 | 75 72 6c 2d 72 65 74 72 |-method |url-retr|
|00003870| 69 65 76 65 20 61 73 73 | 6f 63 20 22 63 6f 6e 74 |ieve ass|oc "cont|
|00003880| 65 6e 74 2d 6c 65 6e 67 | 74 68 22 20 75 72 6c 2d |ent-leng|th" url-|
|00003890| 63 75 72 72 65 6e 74 2d | 6d 69 6d 65 2d 68 65 61 |current-|mime-hea|
|000038a0| 64 65 72 73 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ders kil|l-buffer|
|000038b0| 20 28 22 66 74 70 22 20 | 22 66 69 6c 65 22 29 20 | ("ftp" |"file") |
|000038c0| 33 20 22 2f 22 20 31 20 | 22 40 22 20 22 22 20 22 |3 "/" 1 |"@" "" "|
|000038d0| 3a 22 20 35 20 66 6e 61 | 6d 65 20 66 69 6c 65 2d |:" 5 fna|me file-|
|000038e0| 61 74 74 72 69 62 75 74 | 65 73 20 37 20 73 74 72 |attribut|es 7 str|
|000038f0| 69 6e 67 2d 74 6f 2d 69 | 6e 74 5d 20 37 20 28 23 |ing-to-i|nt] 7 (#|
|00003900| 24 20 2e 20 31 34 30 34 | 34 29 5d 29 0a 23 40 34 |$ . 1404|4)]).#@4|
|00003910| 32 20 43 72 65 61 74 65 | 20 61 20 6e 65 77 20 62 |2 Create| a new b|
|00003920| 75 66 66 65 72 20 6e 61 | 6d 65 20 62 61 73 65 64 |uffer na|me based|
|00003930| 20 6f 6e 20 53 54 41 52 | 54 2e 1f 0a 28 64 65 66 | on STAR|T...(def|
|00003940| 61 6c 69 61 73 20 27 75 | 72 6c 2d 67 65 6e 65 72 |alias 'u|rl-gener|
|00003950| 61 74 65 2d 6e 65 77 2d | 62 75 66 66 65 72 2d 6e |ate-new-|buffer-n|
|00003960| 61 6d 65 20 23 5b 28 73 | 74 61 72 74 29 20 22 c0 |ame #[(s|tart) ".|
|00003970| c1 1a 1b c4 0d 21 ac 83 | 0d aa 97 c6 c7 0d 0b 23 |.....!..|.......#|
|00003980| 12 c4 5c 6e 21 ab 8b 0b | 54 13 c6 c7 0d 0b 23 12 |..\n!...|T.....#.|
|00003990| aa 70 5c 6e 2a 87 22 20 | 5b 31 20 6e 69 6c 20 6e |.p\n*." |[1 nil n|
|000039a0| 61 6d 65 20 78 20 67 65 | 74 2d 62 75 66 66 65 72 |ame x ge|t-buffer|
|000039b0| 20 73 74 61 72 74 20 66 | 6f 72 6d 61 74 20 22 25 | start f|ormat "%|
|000039c0| 73 3c 25 64 3e 22 5d 20 | 34 20 28 23 24 20 2e 20 |s<%d>"] |4 (#$ . |
|000039d0| 31 34 36 31 30 29 5d 29 | 0a 23 40 35 35 20 47 65 |14610)])|.#@55 Ge|
|000039e0| 6e 65 72 61 74 65 20 61 | 20 75 6e 69 71 75 65 20 |nerate a| unique |
|000039f0| 66 69 6c 65 6e 61 6d 65 | 20 69 6e 20 75 72 6c 2d |filename| in url-|
|00003a00| 74 65 6d 70 6f 72 61 72 | 79 2d 64 69 72 65 63 74 |temporar|y-direct|
|00003a10| 6f 72 79 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ory..(de|falias '|
|00003a20| 75 72 6c 2d 67 65 6e 65 | 72 61 74 65 2d 75 6e 69 |url-gene|rate-uni|
|00003a30| 71 75 65 2d 66 69 6c 65 | 6e 61 6d 65 20 23 5b 28 |que-file|name #[(|
|00003a40| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 6d 74 29 20 22 |&optiona|l fmt) "|
|00003a50| 08 ac b8 c1 c2 c3 20 5c | 22 c4 c5 1e 06 1e 07 1e |...... \|".......|
|00003a60| 08 c1 c9 0e 08 0e 06 23 | 16 07 ca cb 0e 07 0e 0c |.......#|........|
|00003a70| 5c 22 21 ab 90 0e 06 54 | 16 06 0e 08 cd 0e 06 21 |\"!....T|.......!|
|00003a80| 50 16 07 aa 66 cb 0e 07 | 0e 0c 5c 22 2b 87 ce cd |P...f...|..\"+...|
|00003a90| c3 20 21 50 c4 c5 1e 06 | 1e 07 1e 08 c1 08 0e 08 |. !P....|........|
|00003aa0| cd 0e 06 21 50 5c 22 16 | 07 ca cb 0e 07 0e 0c 5c |...!P\".|.......\|
|00003ab0| 22 21 ab 93 0e 06 54 16 | 06 c1 08 0e 08 cd 0e 06 |"!....T.|........|
|00003ac0| 21 50 5c 22 16 07 aa 63 | cb 0e 07 0e 0c 5c 22 2b |!P\"...c|.....\"+|
|00003ad0| 87 22 20 5b 66 6d 74 20 | 66 6f 72 6d 61 74 20 22 |." [fmt |format "|
|00003ae0| 75 72 6c 2d 74 6d 70 2e | 25 64 22 20 75 73 65 72 |url-tmp.|%d" user|
|00003af0| 2d 72 65 61 6c 2d 75 69 | 64 20 22 22 20 30 20 78 |-real-ui|d "" 0 x|
|00003b00| 20 66 6e 61 6d 65 20 62 | 61 73 65 20 22 25 73 25 | fname b|ase "%s%|
|00003b10| 64 22 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |d" file-|exists-p|
|00003b20| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00003b30| 65 20 75 72 6c 2d 74 65 | 6d 70 6f 72 61 72 79 2d |e url-te|mporary-|
|00003b40| 64 69 72 65 63 74 6f 72 | 79 20 69 6e 74 2d 74 6f |director|y int-to|
|00003b50| 2d 73 74 72 69 6e 67 20 | 22 75 72 6c 22 5d 20 35 |-string |"url"] 5|
|00003b60| 20 28 23 24 20 2e 20 31 | 34 38 31 34 29 5d 29 0a | (#$ . 1|4814)]).|
|00003b70| 23 40 31 32 30 20 4a 75 | 73 74 20 6c 69 6b 65 20 |#@120 Ju|st like |
|00003b80| 60 6d 65 73 73 61 67 65 | 27 2c 20 62 75 74 20 69 |`message|', but i|
|00003b90| 73 20 61 20 6e 6f 2d 6f | 70 20 69 66 20 63 61 6c |s a no-o|p if cal|
|00003ba0| 6c 65 64 20 6d 6f 72 65 | 20 74 68 61 6e 20 6f 6e |led more| than on|
|00003bb0| 63 65 20 61 20 73 65 63 | 6f 6e 64 2e 0a 57 69 6c |ce a sec|ond..Wil|
|00003bc0| 6c 20 6e 6f 74 20 64 6f | 20 61 6e 79 74 68 69 6e |l not do| anythin|
|00003bd0| 67 20 69 66 20 75 72 6c | 2d 73 68 6f 77 2d 73 74 |g if url|-show-st|
|00003be0| 61 74 75 73 20 69 73 20 | 6e 69 6c 2e 1f 0a 28 64 |atus is |nil...(d|
|00003bf0| 65 66 61 6c 69 61 73 20 | 27 75 72 6c 2d 6c 61 7a |efalias |'url-laz|
|00003c00| 79 2d 6d 65 73 73 61 67 | 65 20 23 5b 28 26 72 65 |y-messag|e #[(&re|
|00003c10| 73 74 20 61 72 67 73 29 | 20 22 08 3f ae 8c c1 20 |st args)| ".?... |
|00003c20| ae 88 5c 6e c3 20 41 40 | 89 12 55 3f ad 85 c4 c5 |..\n. A@|..U?....|
|00003c30| 0e 06 5c 22 87 22 20 5b | 75 72 6c 2d 73 68 6f 77 |..\"." [|url-show|
|00003c40| 2d 73 74 61 74 75 73 20 | 61 63 74 69 76 65 2d 6d |-status |active-m|
|00003c50| 69 6e 69 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |inibuffe|r-window|
|00003c60| 20 75 72 6c 2d 6c 61 7a | 79 2d 6d 65 73 73 61 67 | url-laz|y-messag|
|00003c70| 65 2d 74 69 6d 65 20 63 | 75 72 72 65 6e 74 2d 74 |e-time c|urrent-t|
|00003c80| 69 6d 65 20 61 70 70 6c | 79 20 6d 65 73 73 61 67 |ime appl|y messag|
|00003c90| 65 20 61 72 67 73 5d 20 | 33 20 28 23 24 20 2e 20 |e args] |3 (#$ . |
|00003ca0| 31 35 32 32 32 29 5d 29 | 0a 23 40 39 30 20 4b 69 |15222)])|.#@90 Ki|
|00003cb0| 6c 6c 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 50 |ll the p|rocess P|
|00003cc0| 52 4f 43 20 2d 20 6b 6e | 6f 77 73 20 61 62 6f 75 |ROC - kn|ows abou|
|00003cd0| 74 20 61 6c 6c 20 74 68 | 65 20 76 61 72 69 6f 75 |t all th|e variou|
|00003ce0| 73 20 67 61 74 65 77 61 | 79 20 74 79 70 65 73 2c |s gatewa|y types,|
|00003cf0| 0a 61 6e 64 20 61 63 74 | 73 20 61 63 63 6f 72 64 |.and act|s accord|
|00003d00| 69 6e 67 6c 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ingly...|(defalia|
|00003d10| 73 20 27 75 72 6c 2d 6b | 69 6c 6c 2d 70 72 6f 63 |s 'url-k|ill-proc|
|00003d20| 65 73 73 20 23 5b 28 70 | 72 6f 63 29 20 22 c0 09 |ess #[(p|roc) "..|
|00003d30| 21 87 22 20 5b 64 65 6c | 65 74 65 2d 70 72 6f 63 |!." [del|ete-proc|
|00003d40| 65 73 73 20 70 72 6f 63 | 5d 20 32 20 28 23 24 20 |ess proc|] 2 (#$ |
|00003d50| 2e 20 31 35 35 33 34 29 | 5d 29 0a 23 40 32 33 39 |. 15534)|]).#@239|
|00003d60| 20 41 6c 6c 6f 77 20 61 | 6e 79 20 70 65 6e 64 69 | Allow a|ny pendi|
|00003d70| 6e 67 20 6f 75 74 70 75 | 74 20 66 72 6f 6d 20 73 |ng outpu|t from s|
|00003d80| 75 62 70 72 6f 63 65 73 | 73 65 73 20 74 6f 20 62 |ubproces|ses to b|
|00003d90| 65 20 72 65 61 64 20 62 | 79 20 45 6d 61 63 73 2e |e read b|y Emacs.|
|00003da0| 0a 49 74 20 69 73 20 72 | 65 61 64 20 69 6e 74 6f |.It is r|ead into|
|00003db0| 20 74 68 65 20 70 72 6f | 63 65 73 73 27 20 62 75 | the pro|cess' bu|
|00003dc0| 66 66 65 72 73 20 6f 72 | 20 67 69 76 65 6e 20 74 |ffers or| given t|
|00003dd0| 6f 20 74 68 65 69 72 20 | 66 69 6c 74 65 72 20 66 |o their |filter f|
|00003de0| 75 6e 63 74 69 6f 6e 73 | 2e 0a 57 68 65 72 65 20 |unctions|..Where |
|00003df0| 70 6f 73 73 69 62 6c 65 | 2c 20 74 68 69 73 20 77 |possible|, this w|
|00003e00| 69 6c 6c 20 6e 6f 74 20 | 65 78 69 74 20 75 6e 74 |ill not |exit unt|
|00003e10| 69 6c 20 73 6f 6d 65 20 | 6f 75 74 70 75 74 20 69 |il some |output i|
|00003e20| 73 20 72 65 63 65 69 76 | 65 64 20 66 72 6f 6d 20 |s receiv|ed from |
|00003e30| 50 52 4f 43 2c 0a 6f 72 | 20 31 20 73 65 63 6f 6e |PROC,.or| 1 secon|
|00003e40| 64 20 68 61 73 20 65 6c | 61 70 73 65 64 2e 1f 0a |d has el|apsed...|
|00003e50| 28 64 65 66 61 6c 69 61 | 73 20 27 75 72 6c 2d 61 |(defalia|s 'url-a|
|00003e60| 63 63 65 70 74 2d 70 72 | 6f 63 65 73 73 2d 6f 75 |ccept-pr|ocess-ou|
|00003e70| 74 70 75 74 20 23 5b 28 | 70 72 6f 63 29 20 22 c0 |tput #[(|proc) ".|
|00003e80| 09 c2 5c 22 87 22 20 5b | 61 63 63 65 70 74 2d 70 |..\"." [|accept-p|
|00003e90| 72 6f 63 65 73 73 2d 6f | 75 74 70 75 74 20 70 72 |rocess-o|utput pr|
|00003ea0| 6f 63 20 31 5d 20 33 20 | 28 23 24 20 2e 20 31 35 |oc 1] 3 |(#$ . 15|
|00003eb0| 37 31 33 29 5d 29 0a 23 | 40 34 33 20 52 65 74 75 |713)]).#|@43 Retu|
|00003ec0| 72 6e 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 73 |rn the p|rocess s|
|00003ed0| 74 61 74 75 73 20 6f 66 | 20 61 20 75 72 6c 20 62 |tatus of| a url b|
|00003ee0| 75 66 66 65 72 1f 0a 28 | 64 65 66 61 6c 69 61 73 |uffer..(|defalias|
|00003ef0| 20 27 75 72 6c 2d 70 72 | 6f 63 65 73 73 2d 73 74 | 'url-pr|ocess-st|
|00003f00| 61 74 75 73 20 23 5b 28 | 70 72 6f 63 29 20 22 c0 |atus #[(|proc) ".|
|00003f10| 09 21 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 73 74 |.!." [pr|ocess-st|
|00003f20| 61 74 75 73 20 70 72 6f | 63 5d 20 32 20 28 23 24 |atus pro|c] 2 (#$|
|00003f30| 20 2e 20 31 36 30 36 30 | 29 5d 29 0a 28 64 65 66 | . 16060|)]).(def|
|00003f40| 61 6c 69 61 73 20 27 75 | 72 6c 2d 73 65 74 75 70 |alias 'u|rl-setup|
|00003f50| 2d 70 72 69 76 61 63 79 | 2d 69 6e 66 6f 20 23 5b |-privacy|-info #[|
|00003f60| 6e 69 6c 20 22 08 c1 61 | ac 89 08 3c ab 88 c2 08 |nil "..a|...<....|
|00003f70| 73 ab 83 c3 aa da 0c c5 | 61 ab 83 c6 aa d2 0c c7 |s.......|a.......|
|00003f80| 61 ab 83 c8 aa ca 0c c9 | 61 ab 83 ca aa c2 0c cb |a.......|a.......|
|00003f90| 61 ab 83 cc aa ba 0c cd | 61 ab 83 ce aa b2 cf 20 |a.......|a...... |
|00003fa0| d0 73 ab 83 d1 aa a9 cf | 20 d2 61 ab 83 d3 aa a0 |.s......| .a.....|
|00003fb0| cf 20 89 1e 14 d5 61 ab | 83 d6 aa 93 0e 14 d7 61 |. ....a.|.......a|
|00003fc0| ab 83 d8 aa 8a 0e 14 d9 | 61 ab 83 da aa 81 c3 29 |........|a......)|
|00003fd0| 16 1b 0e 1c ae 8b 0e 1d | ae 87 de df e0 20 e1 20 |........|..... . |
|00003fe0| 23 16 1c 08 e2 73 ac 89 | 08 3c ab 88 e3 08 73 ab |#....s..|.<....s.|
|00003ff0| 83 c3 16 1c 08 c1 61 ac | 89 08 3c ab 88 c2 08 73 |......a.|..<....s|
|00004000| ab 83 c3 aa 94 e4 e5 21 | ab 84 0e 25 aa 8b e4 c4 |.......!|...%....|
|00004010| 21 ab 85 e6 0c 21 aa 81 | c3 89 16 27 87 22 20 5b |!....!..|...'." [|
|00004020| 75 72 6c 2d 70 72 69 76 | 61 63 79 2d 6c 65 76 65 |url-priv|acy-leve|
|00004030| 6c 20 70 61 72 61 6e 6f | 69 64 20 6f 73 20 6e 69 |l parano|id os ni|
|00004040| 6c 20 73 79 73 74 65 6d | 2d 74 79 70 65 20 41 70 |l system|-type Ap|
|00004050| 70 6c 65 2d 4d 61 63 69 | 6e 74 6f 73 68 20 22 4d |ple-Maci|ntosh "M|
|00004060| 61 63 69 6e 74 6f 73 68 | 22 20 6e 65 78 74 2d 6d |acintosh|" next-m|
|00004070| 61 63 68 20 22 4e 65 58 | 54 22 20 77 69 6e 64 6f |ach "NeX|T" windo|
|00004080| 77 73 2d 6e 74 20 22 57 | 69 6e 64 6f 77 73 2d 4e |ws-nt "W|indows-N|
|00004090| 54 3b 20 33 32 62 69 74 | 22 20 6d 73 2d 77 69 6e |T; 32bit|" ms-win|
|000040a0| 64 6f 77 73 20 22 57 69 | 6e 64 6f 77 73 3b 20 31 |dows "Wi|ndows; 1|
|000040b0| 36 62 69 74 22 20 6d 73 | 2d 64 6f 73 20 22 4d 53 |6bit" ms|-dos "MS|
|000040c0| 2d 44 4f 53 3b 20 33 32 | 62 69 74 22 20 64 65 76 |-DOS; 32|bit" dev|
|000040d0| 69 63 65 2d 74 79 70 65 | 20 28 77 69 6e 33 32 20 |ice-type| (win32 |
|000040e0| 77 33 32 29 20 22 57 69 | 6e 64 6f 77 73 3b 20 33 |w32) "Wi|ndows; 3|
|000040f0| 32 62 69 74 22 20 70 6d | 20 22 4f 53 2f 32 3b 20 |2bit" pm| "OS/2; |
|00004100| 33 32 62 69 74 22 20 47 | 38 37 37 30 30 20 78 20 |32bit" G|87700 x |
|00004110| 22 58 31 31 22 20 6e 73 | 20 22 4f 70 65 6e 53 74 |"X11" ns| "OpenSt|
|00004120| 65 70 22 20 74 74 79 20 | 22 54 54 59 22 20 75 72 |ep" tty |"TTY" ur|
|00004130| 6c 2d 73 79 73 74 65 6d | 2d 74 79 70 65 20 75 72 |l-system|-type ur|
|00004140| 6c 2d 70 65 72 73 6f 6e | 61 6c 2d 6d 61 69 6c 2d |l-person|al-mail-|
|00004150| 61 64 64 72 65 73 73 20 | 75 73 65 72 2d 6d 61 69 |address |user-mai|
|00004160| 6c 2d 61 64 64 72 65 73 | 73 20 66 6f 72 6d 61 74 |l-addres|s format|
|00004170| 20 22 25 73 40 25 73 22 | 20 75 73 65 72 2d 72 65 | "%s@%s"| user-re|
|00004180| 61 6c 2d 6c 6f 67 69 6e | 2d 6e 61 6d 65 20 73 79 |al-login|-name sy|
|00004190| 73 74 65 6d 2d 6e 61 6d | 65 20 28 70 61 72 61 6e |stem-nam|e (paran|
|000041a0| 6f 69 64 20 68 69 67 68 | 29 20 65 6d 61 69 6c 20 |oid high|) email |
|000041b0| 62 6f 75 6e 64 70 20 73 | 79 73 74 65 6d 2d 63 6f |boundp s|ystem-co|
|000041c0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 73 79 6d 62 |nfigurat|ion symb|
|000041d0| 6f 6c 2d 6e 61 6d 65 20 | 75 72 6c 2d 6f 73 2d 74 |ol-name |url-os-t|
|000041e0| 79 70 65 5d 20 35 20 6e | 69 6c 20 6e 69 6c 5d 29 |ype] 5 n|il nil])|
|000041f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 75 72 6c 2d |.(defali|as 'url-|
|00004200| 68 61 6e 64 6c 65 2d 6e | 6f 2d 73 63 68 65 6d 65 |handle-n|o-scheme|
|00004210| 20 23 5b 28 75 72 6c 29 | 20 22 08 c1 1a 1b 0b ab | #[(url)| "......|
|00004220| a0 5c 6e ac 9d 0b 40 40 | c4 b6 ac 90 c5 c6 0b 40 |.\n...@@|.......@|
|00004230| 40 c7 51 0e 08 5c 22 ab | 84 c9 12 aa 63 0b 41 89 |@.Q..\".|....c.A.|
|00004240| 13 ac 60 5c 6e ab 8b ca | 0b 40 40 cb 0e 08 51 21 |..`\n...|.@@...Q!|
|00004250| aa b3 c5 cc 0e 08 5c 22 | ab 88 ca cd 0e 08 50 21 |......\"|......P!|
|00004260| aa a4 c5 ce 0e 08 5c 22 | ab 88 ca cd 0e 08 50 21 |......\"|......P!|
|00004270| aa 95 cf d0 0e 08 5c 22 | 89 13 ab 85 ca 0b 21 aa |......\"|......!.|
|00004280| 87 ca d1 0e 08 d2 51 21 | 2a 87 22 20 5b 75 72 6c |......Q!|*." [url|
|00004290| 2d 72 65 67 69 73 74 65 | 72 65 64 2d 70 72 6f 74 |-registe|red-prot|
|000042a0| 6f 63 6f 6c 73 20 6e 69 | 6c 20 66 6f 75 6e 64 20 |ocols ni|l found |
|000042b0| 74 65 6d 70 20 28 22 61 | 75 74 6f 22 20 22 77 77 |temp ("a|uto" "ww|
|000042c0| 77 22 29 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |w") stri|ng-match|
|000042d0| 20 22 5e 22 20 22 5c 5c | 2e 22 20 75 72 6c 20 74 | "^" "\\|." url t|
|000042e0| 20 75 72 6c 2d 72 65 74 | 72 69 65 76 65 20 22 3a | url-ret|rieve ":|
|000042f0| 2f 2f 22 20 22 5e 77 77 | 77 5c 5c 2e 22 20 22 68 |//" "^ww|w\\." "h|
|00004300| 74 74 70 3a 2f 2f 22 20 | 22 5c 5c 28 5c 5c 2e 5b |ttp://" |"\\(\\.[|
|00004310| 5e 5c 5c 2e 5d 2b 5c 5c | 29 5c 5c 28 5c 5c 2e 5b |^\\.]+\\|)\\(\\.[|
|00004320| 5e 5c 5c 2e 5d 2b 5c 5c | 29 22 20 72 75 6e 2d 68 |^\\.]+\\|)" run-h|
|00004330| 6f 6f 6b 2d 77 69 74 68 | 2d 61 72 67 73 2d 75 6e |ook-with|-args-un|
|00004340| 74 69 6c 2d 73 75 63 63 | 65 73 73 20 75 72 6c 2d |til-succ|ess url-|
|00004350| 68 61 6e 64 6c 65 2d 6e | 6f 2d 73 63 68 65 6d 65 |handle-n|o-scheme|
|00004360| 2d 68 6f 6f 6b 20 22 68 | 74 74 70 3a 2f 2f 77 77 |-hook "h|ttp://ww|
|00004370| 77 2e 22 20 22 2e 63 6f | 6d 22 5d 20 35 5d 29 0a |w." ".co|m"] 5]).|
|00004380| 23 40 33 31 20 52 65 73 | 65 74 20 74 68 65 20 68 |#@31 Res|et the h|
|00004390| 69 73 74 6f 72 79 20 6c | 69 73 74 20 74 69 6d 65 |istory l|ist time|
|000043a0| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |r...(def|alias 'u|
|000043b0| 72 6c 2d 73 65 74 75 70 | 2d 73 61 76 65 2d 74 69 |rl-setup|-save-ti|
|000043c0| 6d 65 72 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 ab 93 |mer #[ni|l "..!..|
|000043d0| c2 c3 21 ab 86 c4 c2 c3 | 21 21 88 c5 c3 c6 0e 07 |..!.....|!!......|
|000043e0| 89 24 87 c8 c9 21 ab 87 | c9 0e 07 89 c6 23 87 ca |.$...!..|.....#..|
|000043f0| 87 22 20 5b 66 65 61 74 | 75 72 65 70 20 69 74 69 |." [feat|urep iti|
|00004400| 6d 65 72 20 67 65 74 2d | 69 74 69 6d 65 72 20 22 |mer get-|itimer "|
|00004410| 75 72 6c 2d 68 69 73 74 | 6f 72 79 2d 73 61 76 65 |url-hist|ory-save|
|00004420| 72 22 20 64 65 6c 65 74 | 65 2d 69 74 69 6d 65 72 |r" delet|e-itimer|
|00004430| 20 73 74 61 72 74 2d 69 | 74 69 6d 65 72 20 75 72 | start-i|timer ur|
|00004440| 6c 2d 77 72 69 74 65 2d | 67 6c 6f 62 61 6c 2d 68 |l-write-|global-h|
|00004450| 69 73 74 6f 72 79 20 75 | 72 6c 2d 67 6c 6f 62 61 |istory u|rl-globa|
|00004460| 6c 2d 68 69 73 74 6f 72 | 79 2d 73 61 76 65 2d 69 |l-histor|y-save-i|
|00004470| 6e 74 65 72 76 61 6c 20 | 66 62 6f 75 6e 64 70 20 |nterval |fboundp |
|00004480| 72 75 6e 2d 61 74 2d 74 | 69 6d 65 20 6e 69 6c 5d |run-at-t|ime nil]|
|00004490| 20 35 20 28 23 24 20 2e | 20 31 37 32 38 35 29 20 | 5 (#$ .| 17285) |
|000044a0| 6e 69 6c 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |nil]).(b|yte-code|
|000044b0| 20 22 c0 c1 21 ac 82 c2 | 11 c1 0b 42 13 c2 87 22 | "..!...|...B..."|
|000044c0| 20 5b 62 6f 75 6e 64 70 | 20 75 72 6c 2d 64 6f 77 | [boundp| url-dow|
|000044d0| 6e 6c 6f 61 64 2d 6d 69 | 6e 6f 72 2d 6d 6f 64 65 |nload-mi|nor-mode|
|000044e0| 20 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 | nil cur|rent-loa|
|000044f0| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 64 65 66 61 |d-list] |2).(defa|
|00004500| 6c 69 61 73 20 27 75 72 | 6c 2d 64 6f 77 6e 6c 6f |lias 'ur|l-downlo|
|00004510| 61 64 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 23 5b |ad-minor|-mode #[|
|00004520| 28 6f 6e 29 20 22 08 ab | 87 09 ae 81 c2 54 aa 85 |(on) "..|.....T..|
|00004530| 09 ae 81 c3 53 89 11 c2 | 58 ad 83 c4 89 11 87 22 |....S...|X......"|
|00004540| 20 5b 6f 6e 20 75 72 6c | 2d 64 6f 77 6e 6c 6f 61 | [on url|-downloa|
|00004550| 64 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 30 20 31 |d-minor-|mode 0 1|
|00004560| 20 6e 69 6c 5d 20 33 5d | 29 0a 23 40 38 38 20 44 | nil] 3]|).#@88 D|
|00004570| 6f 20 73 65 74 75 70 20 | 2d 20 74 68 69 73 20 69 |o setup |- this i|
|00004580| 73 20 74 6f 20 61 76 6f | 69 64 20 63 6f 6e 66 6c |s to avo|id confl|
|00004590| 69 63 74 20 77 69 74 68 | 20 75 73 65 72 20 73 65 |ict with| user se|
|000045a0| 74 74 69 6e 67 73 20 77 | 68 65 6e 20 55 52 4c 20 |ttings w|hen URL |
|000045b0| 69 73 0a 64 75 6d 70 65 | 64 20 77 69 74 68 20 65 |is.dumpe|d with e|
|000045c0| 6d 61 63 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |macs...(|defalias|
|000045d0| 20 27 75 72 6c 2d 64 6f | 2d 73 65 74 75 70 20 23 | 'url-do|-setup #|
|000045e0| 5b 6e 69 6c 20 22 08 3f | 85 2b 02 c1 c2 c3 c4 23 |[nil ".?|.+.....#|
|000045f0| 88 c5 c6 0e 07 5c 22 16 | 07 c8 c9 21 88 c8 ca c4 |.....\".|...!....|
|00004600| 89 cb 24 88 c8 cc c4 89 | cd 24 88 c8 ce c4 89 cf |..$.....|.$......|
|00004610| 24 88 c8 d0 c4 89 d1 24 | 88 c8 d2 c4 89 d3 24 88 |$......$|......$.|
|00004620| c8 d4 c4 d5 23 88 c8 d6 | c4 d5 23 88 c8 d7 c4 d5 |....#...|..#.....|
|00004630| d8 24 88 c8 d9 c4 d5 23 | 88 c8 da c4 d5 db 24 88 |.$.....#|......$.|
|00004640| c8 dc c4 d5 db 24 88 c8 | dd c4 d5 de 24 88 c8 df |.....$..|....$...|
|00004650| c4 d5 23 88 c8 e0 c4 d5 | 23 88 c8 e1 21 88 c8 e2 |..#.....|#...!...|
|00004660| 21 88 c8 e3 21 88 c8 e4 | 21 88 c8 e5 e6 5c 22 88 |!...!...|!....\".|
|00004670| e7 e8 c4 e9 23 88 e7 ea | c4 eb 23 88 ec 20 88 0e |....#...|..#.. ..|
|00004680| 2d ae 83 ee ef 21 16 2d | 0e 30 ae 9a 0e 31 f2 73 |-....!.-|.0...1.s|
|00004690| ab 85 ee f3 21 ae 8f 0e | 31 f4 73 ab 85 ee f5 21 |....!...|1.s....!|
|000046a0| ae 84 c4 f6 f7 8f 89 16 | 30 ab 89 f8 0e 30 21 ab |........|0....0!.|
|000046b0| 83 f9 20 88 0e 3a ab 83 | fb 20 88 0e 2d ab 8b f8 |.. ..:..|. ..-...|
|000046c0| 0e 2d 21 ab 85 fc 0e 2d | 21 88 fd fe 0e 3f 5c 22 |.-!....-|!....?\"|
|000046d0| 3f ad 97 81 40 00 81 41 | 00 21 ae 8e 81 40 00 81 |?...@..A|.!...@..|
|000046e0| 42 00 21 ae 85 81 40 00 | fe 21 89 1e 43 ab 9a fe |B.!...@.|.!..C...|
|000046f0| 81 44 00 81 45 00 81 46 | 00 0e 43 81 47 00 23 81 |.D..E..F|..C.G.#.|
|00004700| 48 00 51 42 0e 3f 42 16 | 3f 29 0e 49 ac f2 81 4a |H.QB.?B.|?).I...J|
|00004710| 00 81 4b 00 21 ab 87 81 | 4b 00 16 49 aa e2 81 4c |..K.!...|K..I...L|
|00004720| 00 81 4d 00 21 ac 89 81 | 4c 00 81 4e 00 21 ab 9f |..M.!...|L..N.!..|
|00004730| 81 4a 00 81 4b 00 21 ac | 8f 81 4f 00 81 4b 00 81 |.J..K.!.|..O..K..|
|00004740| 50 00 81 51 00 c4 24 88 | 81 4b 00 16 49 aa b1 81 |P..Q..$.|.K..I...|
|00004750| 4c 00 81 52 00 21 ac 96 | 81 53 00 81 54 00 21 ab |L..R.!..|.S..T.!.|
|00004760| 94 81 55 00 81 56 00 81 | 57 00 20 5c 22 ac 87 81 |..U..V..|W. \"...|
|00004770| 58 00 16 49 aa 8b 81 59 | 00 81 5a 00 81 5b 00 5c |X..I...Y|..Z..[.\|
|00004780| 22 88 0e 5c 5c ab 84 0e | 5c 5c aa dc 81 53 00 81 |"..\\...|\\...S..|
|00004790| 5d 00 21 ab 8c 0e 5d 81 | 47 00 6b ac 84 0e 5d aa |].!...].|G.k...].|
|000047a0| c7 81 53 00 81 5e 00 21 | ab 90 0e 5e ab 8c 0e 5e |..S..^.!|...^...^|
|000047b0| 81 47 00 6b ac 84 0e 5e | aa ae 81 53 00 81 5f 00 |.G.k...^|...S.._.|
|000047c0| 21 ab 90 0e 5f ab 8c 0e | 5f 81 47 00 6b ac 84 0e |!..._...|_.G.k...|
|000047d0| 5f aa 95 81 40 00 81 60 | 00 21 ab 89 81 40 00 81 |_...@..`|.!...@..|
|000047e0| 60 00 21 aa 83 81 61 00 | 16 5c 5c 0e 62 ac 86 81 |`.!...a.|.\\.b...|
|000047f0| 63 00 20 16 62 0e 64 ac | 8e 81 45 00 81 65 00 0e |c. .b.d.|..E..e..|
|00004800| 66 81 67 00 23 16 64 81 | 68 00 20 88 81 69 00 81 |f.g.#.d.|h. ..i..|
|00004810| 6a 00 21 88 81 6b 00 89 | 10 87 22 20 5b 75 72 6c |j.!..k..|.." [url|
|00004820| 2d 73 65 74 75 70 2d 64 | 6f 6e 65 20 61 64 64 2d |-setup-d|one add-|
|00004830| 6d 69 6e 6f 72 2d 6d 6f | 64 65 20 75 72 6c 2d 64 |minor-mo|de url-d|
|00004840| 6f 77 6e 6c 6f 61 64 2d | 6d 69 6e 6f 72 2d 6d 6f |ownload-|minor-mo|
|00004850| 64 65 20 22 20 57 65 62 | 62 69 6e 67 22 20 6e 69 |de " Web|bing" ni|
|00004860| 6c 20 61 70 70 65 6e 64 | 20 28 22 68 74 74 70 22 |l append| ("http"|
|00004870| 20 22 38 30 22 29 20 74 | 63 70 2d 62 69 6e 61 72 | "80") t|cp-binar|
|00004880| 79 2d 70 72 6f 63 65 73 | 73 2d 69 6e 70 75 74 2d |y-proces|s-input-|
|00004890| 73 65 72 76 69 63 65 73 | 20 75 72 6c 2d 72 65 67 |services| url-reg|
|000048a0| 69 73 74 65 72 2d 70 72 | 6f 74 6f 63 6f 6c 20 66 |ister-pr|otocol f|
|000048b0| 69 6c 65 20 66 74 70 20 | 22 32 31 22 20 67 6f 70 |ile ftp |"21" gop|
|000048c0| 68 65 72 20 22 37 30 22 | 20 68 74 74 70 20 22 38 |her "70"| http "8|
|000048d0| 30 22 20 68 74 74 70 73 | 20 22 34 34 33 22 20 6e |0" https| "443" n|
|000048e0| 66 73 20 22 32 30 34 39 | 22 20 69 6e 66 6f 20 75 |fs "2049|" info u|
|000048f0| 72 6c 2d 69 64 65 6e 74 | 69 74 79 2d 65 78 70 61 |rl-ident|ity-expa|
|00004900| 6e 64 65 72 20 6d 61 69 | 6c 73 65 72 76 65 72 20 |nder mai|lserver |
|00004910| 66 69 6e 67 65 72 20 22 | 37 39 22 20 6d 61 69 6c |finger "|79" mail|
|00004920| 74 6f 20 6e 65 77 73 20 | 22 31 31 39 22 20 6e 6e |to news |"119" nn|
|00004930| 74 70 20 69 72 63 20 22 | 36 36 36 37 22 20 64 61 |tp irc "|6667" da|
|00004940| 74 61 20 6e 65 74 72 65 | 6b 20 72 6c 6f 67 69 6e |ta netre|k rlogin|
|00004950| 20 74 65 6c 6e 65 74 20 | 74 6e 33 32 37 30 20 70 | telnet |tn3270 p|
|00004960| 72 6f 78 79 20 61 75 74 | 6f 20 75 72 6c 2d 68 61 |roxy aut|o url-ha|
|00004970| 6e 64 6c 65 2d 6e 6f 2d | 73 63 68 65 6d 65 20 75 |ndle-no-|scheme u|
|00004980| 72 6c 2d 72 65 67 69 73 | 74 65 72 2d 61 75 74 68 |rl-regis|ter-auth|
|00004990| 2d 73 63 68 65 6d 65 20 | 22 62 61 73 69 63 22 20 |-scheme |"basic" |
|000049a0| 34 20 22 64 69 67 65 73 | 74 22 20 37 20 75 72 6c |4 "diges|t" 7 url|
|000049b0| 2d 73 65 74 75 70 2d 66 | 69 6c 65 2d 6e 61 6d 65 |-setup-f|ile-name|
|000049c0| 2d 68 61 6e 64 6c 65 72 | 73 20 75 72 6c 2d 63 6f |-handler|s url-co|
|000049d0| 6f 6b 69 65 2d 66 69 6c | 65 20 65 78 70 61 6e 64 |okie-fil|e expand|
|000049e0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 7e 2f 2e 77 |-file-na|me "~/.w|
|000049f0| 33 2f 63 6f 6f 6b 69 65 | 73 22 20 75 72 6c 2d 67 |3/cookie|s" url-g|
|00004a00| 6c 6f 62 61 6c 2d 68 69 | 73 74 6f 72 79 2d 66 69 |lobal-hi|story-fi|
|00004a10| 6c 65 20 73 79 73 74 65 | 6d 2d 74 79 70 65 20 28 |le syste|m-type (|
|00004a20| 6d 73 2d 64 6f 73 20 6d | 73 2d 77 69 6e 64 6f 77 |ms-dos m|s-window|
|00004a30| 73 29 20 22 7e 2f 6d 6f | 73 61 69 63 2e 68 73 74 |s) "~/mo|saic.hst|
|00004a40| 22 20 28 61 78 70 2d 76 | 6d 73 20 76 61 78 2d 76 |" (axp-v|ms vax-v|
|00004a50| 6d 73 29 20 22 7e 2f 6d | 6f 73 61 69 63 2e 67 6c |ms) "~/m|osaic.gl|
|00004a60| 6f 62 61 6c 2d 68 69 73 | 74 6f 72 79 22 20 28 65 |obal-his|tory" (e|
|00004a70| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00004a80| 22 7e 2f 2e 77 33 2f 68 | 69 73 74 6f 72 79 22 29 |"~/.w3/h|istory")|
|00004a90| 20 28 28 65 72 72 6f 72 | 29 29 20 66 69 6c 65 2d | ((error|)) file-|
|00004aa0| 65 78 69 73 74 73 2d 70 | 20 75 72 6c 2d 70 61 72 |exists-p| url-par|
|00004ab0| 73 65 2d 67 6c 6f 62 61 | 6c 2d 68 69 73 74 6f 72 |se-globa|l-histor|
|00004ac0| 79 20 75 72 6c 2d 67 6c | 6f 62 61 6c 2d 68 69 73 |y url-gl|obal-his|
|00004ad0| 74 6f 72 79 2d 73 61 76 | 65 2d 69 6e 74 65 72 76 |tory-sav|e-interv|
|00004ae0| 61 6c 20 75 72 6c 2d 73 | 65 74 75 70 2d 73 61 76 |al url-s|etup-sav|
|00004af0| 65 2d 74 69 6d 65 72 20 | 75 72 6c 2d 63 6f 6f 6b |e-timer |url-cook|
|00004b00| 69 65 2d 70 61 72 73 65 | 2d 66 69 6c 65 20 61 73 |ie-parse|-file as|
|00004b10| 73 6f 63 20 22 6e 6f 5f | 70 72 6f 78 79 22 20 75 |soc "no_|proxy" u|
|00004b20| 72 6c 2d 70 72 6f 78 79 | 2d 73 65 72 76 69 63 65 |rl-proxy|-service|
|00004b30| 73 20 67 65 74 65 6e 76 | 20 22 4e 4f 5f 50 52 4f |s getenv| "NO_PRO|
|00004b40| 58 59 22 20 22 6e 6f 5f | 50 52 4f 58 59 22 20 6e |XY" "no_|PROXY" n|
|00004b50| 6f 70 72 6f 78 79 20 22 | 5c 5c 28 22 20 6d 61 70 |oproxy "|\\(" map|
|00004b60| 63 6f 6e 63 61 74 20 23 | 5b 28 78 29 20 22 08 c1 |concat #|[(x) "..|
|00004b70| 55 ab 82 c2 87 08 c3 55 | ab 82 c4 87 08 c5 55 ab |U......U|......U.|
|00004b80| 84 c6 c7 21 87 08 c8 55 | ab 82 c9 87 08 ca 55 ab |...!...U|......U.|
|00004b90| 82 c7 87 cb 08 21 87 22 | 20 5b 78 20 3f 5c 2c 20 |.....!."| [x ?\, |
|00004ba0| 22 5c 5c 7c 22 20 3f 5c | 20 20 22 22 20 3f 5c 2e |"\\|" ?\| "" ?\.|
|00004bb0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 22 2e | regexp-|quote ".|
|00004bc0| 22 20 3f 5c 2a 20 22 2e | 2a 22 20 3f 5c 3f 20 63 |" ?\* ".|*" ?\? c|
|00004bd0| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 5d 20 32 |har-to-s|tring] 2|
|00004be0| 5d 20 22 22 20 22 5c 5c | 29 22 20 75 72 6c 2d 70 |] "" "\\|)" url-p|
|00004bf0| 61 73 73 77 64 2d 65 6e | 74 72 79 2d 66 75 6e 63 |asswd-en|try-func|
|00004c00| 20 66 62 6f 75 6e 64 70 | 20 72 65 61 64 2d 70 61 | fboundp| read-pa|
|00004c10| 73 73 77 64 20 66 65 61 | 74 75 72 65 70 20 65 66 |sswd fea|turep ef|
|00004c20| 73 20 65 66 73 2d 61 75 | 74 6f 20 61 75 74 6f 6c |s efs-au|to autol|
|00004c30| 6f 61 64 20 22 70 61 73 | 73 77 64 22 20 22 52 65 |oad "pas|swd" "Re|
|00004c40| 61 64 20 69 6e 20 61 20 | 70 61 73 73 77 6f 72 64 |ad in a |password|
|00004c50| 22 20 61 6e 67 65 2d 66 | 74 70 20 62 6f 75 6e 64 |" ange-f|tp bound|
|00004c60| 70 20 66 69 6c 65 2d 6e | 61 6d 65 2d 68 61 6e 64 |p file-n|ame-hand|
|00004c70| 6c 65 72 2d 61 6c 69 73 | 74 20 73 74 72 69 6e 67 |ler-alis|t string|
|00004c80| 2d 6d 61 74 63 68 20 22 | 4c 75 63 69 64 22 20 65 |-match "|Lucid" e|
|00004c90| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 61 6e 67 |macs-ver|sion ang|
|00004ca0| 65 2d 66 74 70 2d 72 65 | 61 64 2d 70 61 73 73 77 |e-ftp-re|ad-passw|
|00004cb0| 64 20 75 72 6c 2d 77 61 | 72 6e 20 73 65 63 75 72 |d url-wa|rn secur|
|00004cc0| 69 74 79 20 22 28 75 72 | 6c 2d 73 65 74 75 70 29 |ity "(ur|l-setup)|
|00004cd0| 3a 20 43 61 6e 27 74 20 | 64 65 74 65 72 6d 69 6e |: Can't |determin|
|00004ce0| 65 20 68 6f 77 20 74 6f | 20 72 65 61 64 20 70 61 |e how to| read pa|
|00004cf0| 73 73 77 6f 72 64 73 2c | 20 77 69 6e 67 69 6e 67 |sswords,| winging|
|00004d00| 20 69 74 2e 22 20 75 72 | 6c 2d 6e 65 77 73 2d 73 | it." ur|l-news-s|
|00004d10| 65 72 76 65 72 20 67 6e | 75 73 2d 64 65 66 61 75 |erver gn|us-defau|
|00004d20| 6c 74 2d 6e 6e 74 70 2d | 73 65 72 76 65 72 20 67 |lt-nntp-|server g|
|00004d30| 6e 75 73 2d 6e 6e 74 70 | 2d 73 65 72 76 65 72 20 |nus-nntp|-server |
|00004d40| 6e 6e 74 70 2d 73 65 72 | 76 65 72 2d 6e 61 6d 65 |nntp-ser|ver-name|
|00004d50| 20 22 4e 4e 54 50 53 45 | 52 56 45 52 22 20 22 6e | "NNTPSE|RVER" "n|
|00004d60| 65 77 73 22 20 75 72 6c | 2d 6d 69 6d 65 2d 61 63 |ews" url|-mime-ac|
|00004d70| 63 65 70 74 2d 73 74 72 | 69 6e 67 20 75 72 6c 2d |cept-str|ing url-|
|00004d80| 70 61 72 73 65 2d 76 69 | 65 77 65 72 2d 74 79 70 |parse-vi|ewer-typ|
|00004d90| 65 73 20 75 72 6c 2d 6d | 69 6d 65 2d 65 6e 63 6f |es url-m|ime-enco|
|00004da0| 64 69 6e 67 2d 73 74 72 | 69 6e 67 20 63 61 72 20 |ding-str|ing car |
|00004db0| 6d 6d 2d 63 6f 6e 74 65 | 6e 74 2d 74 72 61 6e 73 |mm-conte|nt-trans|
|00004dc0| 66 65 72 2d 65 6e 63 6f | 64 69 6e 67 73 20 22 2c |fer-enco|dings ",|
|00004dd0| 20 22 20 75 72 6c 2d 73 | 65 74 75 70 2d 70 72 69 | " url-s|etup-pri|
|00004de0| 76 61 63 79 2d 69 6e 66 | 6f 20 72 75 6e 2d 68 6f |vacy-inf|o run-ho|
|00004df0| 6f 6b 73 20 75 72 6c 2d | 6c 6f 61 64 2d 68 6f 6f |oks url-|load-hoo|
|00004e00| 6b 20 74 5d 20 37 20 28 | 23 24 20 2e 20 31 37 37 |k t] 7 (|#$ . 177|
|00004e10| 37 35 29 5d 29 0a 23 40 | 32 37 20 56 61 6c 69 64 |75)]).#@|27 Valid|
|00004e20| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 61 | charact|ers in a|
|00004e30| 20 55 52 4c 1f 0a 28 64 | 65 66 76 61 72 20 75 72 | URL..(d|efvar ur|
|00004e40| 6c 2d 67 65 74 2d 75 72 | 6c 2d 66 69 6c 65 6e 61 |l-get-ur|l-filena|
|00004e50| 6d 65 2d 63 68 61 72 73 | 20 22 2d 25 2e 3f 40 61 |me-chars| "-%.?@a|
|00004e60| 2d 7a 41 2d 5a 30 2d 39 | 28 29 5f 2f 3a 7e 3d 26 |-zA-Z0-9|()_/:~=&|
|00004e70| 22 20 28 23 24 20 2e 20 | 31 39 39 39 35 29 29 0a |" (#$ . |19995)).|
|00004e80| 23 40 31 33 32 20 47 65 | 74 20 74 68 65 20 55 52 |#@132 Ge|t the UR|
|00004e90| 4c 20 63 6c 6f 73 65 73 | 74 20 74 6f 20 70 6f 69 |L closes|t to poi|
|00004ea0| 6e 74 2c 20 62 75 74 20 | 64 6f 6e 27 74 20 63 68 |nt, but |don't ch|
|00004eb0| 61 6e 67 65 20 79 6f 75 | 72 0a 70 6f 73 69 74 69 |ange you|r.positi|
|00004ec0| 6f 6e 2e 20 48 61 73 20 | 61 20 70 72 65 66 65 72 |on. Has |a prefer|
|00004ed0| 65 6e 63 65 20 66 6f 72 | 20 6c 6f 6f 6b 69 6e 67 |ence for| looking|
|00004ee0| 20 62 61 63 6b 77 61 72 | 64 20 77 68 65 6e 20 6e | backwar|d when n|
|00004ef0| 6f 74 0a 64 69 72 65 63 | 74 6c 79 20 6f 6e 20 61 |ot.direc|tly on a|
|00004f00| 20 73 79 6d 62 6f 6c 2e | 1f 0a 28 64 65 66 61 6c | symbol.|..(defal|
|00004f10| 69 61 73 20 27 75 72 6c | 2d 67 65 74 2d 75 72 6c |ias 'url|-get-url|
|00004f20| 2d 61 74 2d 70 6f 69 6e | 74 20 23 5b 28 26 6f 70 |-at-poin|t #[(&op|
|00004f30| 74 69 6f 6e 61 6c 20 70 | 74 29 20 22 8a 08 ab 83 |tional p|t) "....|
|00004f40| 08 62 88 c1 89 1a 1b 8a | 6d ac 90 c4 c5 21 ab 8b |.b......|m....!..|
|00004f50| c6 c1 78 88 6f ac 84 c7 | c8 21 88 60 66 ab 97 c9 |..x.o...|.!.`f...|
|00004f60| ca cb 60 66 21 5c 22 ab | 8e 0e 0c c1 78 88 60 13 |..`f!\".|....x.`.|
|00004f70| 0e 0c c1 77 88 aa 82 60 | 13 cd 0b 60 5c 22 12 29 |...w...`|...`\".)|
|00004f80| c9 ce 5c 6e 5c 22 ab 85 | 5c 6e c8 cf 4f 12 c9 d0 |..\n\"..|\n..O...|
|00004f90| 5c 6e 5c 22 ab 85 5c 6e | d1 c1 4f 12 c9 d2 5c 6e |\n\"..\n|..O...\n|
|00004fa0| 5c 22 ab 85 5c 6e d3 cf | 4f 12 c9 d4 5c 6e 5c 22 |\"..\n..|O...\n\"|
|00004fb0| ab 84 d5 5c 6e 50 12 c9 | 0e 16 5c 6e 5c 22 ac 82 |...\nP..|..\n\"..|
|00004fc0| c1 12 5c 6e 2b 87 22 20 | 5b 70 74 20 6e 69 6c 20 |..\n+." |[pt nil |
|00004fd0| 75 72 6c 20 73 74 61 72 | 74 20 6c 6f 6f 6b 69 6e |url star|t lookin|
|00004fe0| 67 2d 61 74 20 22 5b 5d | 20 09 5c 6e 5b 7b 7d 28 |g-at "[]| .\n[{}(|
|00004ff0| 29 5d 22 20 22 20 5c 6e | 09 0d 28 7b 5b 5d 7d 29 |)]" " \n|..({[]})|
|00005000| 22 20 62 61 63 6b 77 61 | 72 64 2d 63 68 61 72 20 |" backwa|rd-char |
|00005010| 31 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |1 string|-match "|
|00005020| 5b 2d 25 2e 3f 40 61 2d | 7a 41 2d 5a 30 2d 39 28 |[-%.?@a-|zA-Z0-9(|
|00005030| 29 5f 2f 3a 7e 3d 26 5d | 22 20 63 68 61 72 2d 74 |)_/:~=&]|" char-t|
|00005040| 6f 2d 73 74 72 69 6e 67 | 20 75 72 6c 2d 67 65 74 |o-string| url-get|
|00005050| 2d 75 72 6c 2d 66 69 6c | 65 6e 61 6d 65 2d 63 68 |-url-fil|ename-ch|
|00005060| 61 72 73 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ars buff|er-subst|
|00005070| 72 69 6e 67 2d 6e 6f 2d | 70 72 6f 70 65 72 74 69 |ring-no-|properti|
|00005080| 65 73 20 22 5e 28 2e 2a | 29 24 22 20 2d 31 20 22 |es "^(.*|)$" -1 "|
|00005090| 5e 55 52 4c 3a 22 20 34 | 20 22 5c 5c 2e 24 22 20 |^URL:" 4| "\\.$" |
|000050a0| 30 20 22 5e 77 77 77 5c | 5c 2e 22 20 22 68 74 74 |0 "^www\|\." "htt|
|000050b0| 70 3a 2f 2f 22 20 75 72 | 6c 2d 6e 6f 6e 72 65 6c |p://" ur|l-nonrel|
|000050c0| 61 74 69 76 65 2d 6c 69 | 6e 6b 5d 20 34 20 28 23 |ative-li|nk] 4 (#|
|000050d0| 24 20 2e 20 32 30 31 30 | 32 29 5d 29 0a 28 64 65 |$ . 2010|2)]).(de|
|000050e0| 66 61 6c 69 61 73 20 27 | 75 72 6c 2d 65 61 74 2d |falias '|url-eat-|
|000050f0| 74 72 61 69 6c 69 6e 67 | 2d 73 70 61 63 65 20 23 |trailing|-space #|
|00005100| 5b 28 78 29 20 22 08 47 | 53 c1 c2 c3 45 1c 89 1d |[(x) ".G|S...E...|
|00005110| c6 59 ab 8d 08 0d 48 0c | 73 ab 86 0d 53 89 15 aa |.Y....H.|s...S...|
|00005120| 6f 08 c6 0d 54 4f 2a 87 | 22 20 5b 78 20 3f 5c 20 |o...TO*.|" [x ?\ |
|00005130| 20 3f 5c 74 20 3f 5c 6e | 20 73 6b 69 70 2d 63 68 | ?\t ?\n| skip-ch|
|00005140| 61 72 73 20 79 20 30 5d | 20 35 5d 29 0a 28 64 65 |ars y 0]| 5]).(de|
|00005150| 66 61 6c 69 61 73 20 27 | 75 72 6c 2d 73 74 72 69 |falias '|url-stri|
|00005160| 70 2d 6c 65 61 64 69 6e | 67 2d 73 70 61 63 65 73 |p-leadin|g-spaces|
|00005170| 20 23 5b 28 78 29 20 22 | 08 47 53 c1 c2 c3 c4 45 | #[(x) "|.GS....E|
|00005180| 1d 1e 06 1e 07 0e 06 0e | 07 58 ab 90 08 0e 06 48 |........|.X.....H|
|00005190| 0d 73 ab 88 0e 06 54 89 | 16 06 aa 6b 08 0e 06 c8 |.s....T.|...k....|
|000051a0| 4f 2b 87 22 20 5b 78 20 | 30 20 3f 5c 20 20 3f 5c |O+." [x |0 ?\ ?\|
|000051b0| 74 20 3f 5c 6e 20 73 6b | 69 70 2d 63 68 61 72 73 |t ?\n sk|ip-chars|
|000051c0| 20 7a 20 79 20 6e 69 6c | 5d 20 36 5d 29 0a 23 40 | z y nil|] 6]).#@|
|000051d0| 31 38 30 20 43 6f 6e 76 | 65 72 74 20 6e 65 77 6c |180 Conv|ert newl|
|000051e0| 69 6e 65 73 20 61 6e 64 | 20 63 61 72 72 69 61 67 |ines and| carriag|
|000051f0| 65 20 72 65 74 75 72 6e | 73 20 65 6d 62 65 64 64 |e return|s embedd|
|00005200| 65 64 20 69 6e 20 61 20 | 73 74 72 69 6e 67 20 69 |ed in a |string i|
|00005210| 6e 74 6f 20 73 70 61 63 | 65 73 2c 0a 61 6e 64 20 |nto spac|es,.and |
|00005220| 73 77 61 6c 6c 6f 77 20 | 66 6f 6c 6c 6f 77 69 6e |swallow |followin|
|00005230| 67 20 77 68 69 74 65 73 | 70 61 63 65 2e 0a 54 68 |g whites|pace..Th|
|00005240| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 6e 6f |e argume|nt is no|
|00005250| 74 20 73 69 64 65 2d 65 | 66 66 65 63 74 65 64 2c |t side-e|ffected,|
|00005260| 20 62 75 74 20 6d 61 79 | 20 62 65 20 72 65 74 75 | but may| be retu|
|00005270| 72 6e 65 64 20 62 79 20 | 74 68 69 73 20 66 75 6e |rned by |this fun|
|00005280| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|00005290| 73 20 27 75 72 6c 2d 63 | 6f 6e 76 65 72 74 2d 6e |s 'url-c|onvert-n|
|000052a0| 65 77 6c 69 6e 65 73 2d | 74 6f 2d 73 70 61 63 65 |ewlines-|to-space|
|000052b0| 73 20 23 5b 28 78 29 20 | 22 c0 c1 5c 6e 5c 22 ab |s #[(x) |"..\n\".|
|000052c0| 8f 5c 6e c3 89 94 4f c4 | c5 5c 6e c3 95 c6 4f 21 |.\n...O.|.\n...O!|
|000052d0| 51 87 5c 6e 87 22 20 5b | 73 74 72 69 6e 67 2d 6d |Q.\n." [|string-m|
|000052e0| 61 74 63 68 20 22 5b 5c | 6e 0d 5d 2b 5c 5c 73 2d |atch "[\|n.]+\\s-|
|000052f0| 2a 22 20 78 20 30 20 22 | 20 22 20 75 72 6c 2d 63 |*" x 0 "| " url-c|
|00005300| 6f 6e 76 65 72 74 2d 6e | 65 77 6c 69 6e 65 73 2d |onvert-n|ewlines-|
|00005310| 74 6f 2d 73 70 61 63 65 | 73 20 6e 69 6c 5d 20 36 |to-space|s nil] 6|
|00005320| 20 28 23 24 20 2e 20 32 | 30 39 34 38 29 5d 29 0a | (#$ . 2|0948)]).|
|00005330| 23 40 33 30 37 20 43 6f | 6e 76 65 72 74 20 55 52 |#@307 Co|nvert UR|
|00005340| 4c 20 74 6f 20 61 20 66 | 75 6c 6c 79 20 73 70 65 |L to a f|ully spe|
|00005350| 63 69 66 69 65 64 20 55 | 52 4c 2c 20 61 6e 64 20 |cified U|RL, and |
|00005360| 63 61 6e 6f 6e 69 63 61 | 6c 69 7a 65 20 69 74 2e |canonica|lize it.|
|00005370| 0a 53 65 63 6f 6e 64 20 | 61 72 67 20 44 45 46 41 |.Second |arg DEFA|
|00005380| 55 4c 54 20 69 73 20 61 | 20 55 52 4c 20 74 6f 20 |ULT is a| URL to |
|00005390| 73 74 61 72 74 20 77 69 | 74 68 20 69 66 20 55 52 |start wi|th if UR|
|000053a0| 4c 20 69 73 20 72 65 6c | 61 74 69 76 65 2e 0a 49 |L is rel|ative..I|
|000053b0| 66 20 44 45 46 41 55 4c | 54 20 69 73 20 6e 69 6c |f DEFAUL|T is nil|
|000053c0| 20 6f 72 20 6d 69 73 73 | 69 6e 67 2c 20 74 68 65 | or miss|ing, the|
|000053d0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 27 | current| buffer'|
|000053e0| 73 20 55 52 4c 20 69 73 | 20 75 73 65 64 2e 0a 50 |s URL is| used..P|
|000053f0| 61 74 68 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 74 |ath comp|onents t|
|00005400| 68 61 74 20 61 72 65 20 | 60 2e 27 20 61 72 65 20 |hat are |`.' are |
|00005410| 72 65 6d 6f 76 65 64 2c | 20 61 6e 64 20 0a 70 61 |removed,| and .pa|
|00005420| 74 68 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 66 6f |th compo|nents fo|
|00005430| 6c 6c 6f 77 65 64 20 62 | 79 20 60 2e 2e 27 20 61 |llowed b|y `..' a|
|00005440| 72 65 20 72 65 6d 6f 76 | 65 64 2c 20 61 6c 6f 6e |re remov|ed, alon|
|00005450| 67 20 77 69 74 68 20 74 | 68 65 20 60 2e 2e 27 20 |g with t|he `..' |
|00005460| 69 74 73 65 6c 66 2e 1f | 0a 28 64 65 66 61 6c 69 |itself..|.(defali|
|00005470| 61 73 20 27 75 72 6c 2d | 65 78 70 61 6e 64 2d 66 |as 'url-|expand-f|
|00005480| 69 6c 65 2d 6e 61 6d 65 | 20 23 5b 28 75 72 6c 20 |ile-name| #[(url |
|00005490| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 65 66 61 75 6c |&optiona|l defaul|
|000054a0| 74 29 20 22 08 ab 8a c1 | c2 c3 c4 08 21 21 c5 23 |t) "....|....!!.#|
|000054b0| 10 08 ac 82 c6 87 c7 c8 | 08 5c 22 ab 82 08 87 c9 |........|.\".....|
|000054c0| 08 21 1e 5c 6e cb 1e 0c | cd 0e 0e 21 ab 84 0e 0e |.!.\n...|...!....|
|000054d0| aa 97 0e 0e ab 86 c9 0e | 0e 21 aa 8d 0e 0f ab 84 |........|.!......|
|000054e0| 0e 0f aa 85 c9 d0 cb 21 | 21 1e 11 d2 0e 5c 6e d3 |.......!|!....\n.|
|000054f0| 48 ae 84 0e 11 d3 48 0e | 14 5c 22 a3 a3 1e 15 c7 |H.....H.|.\".....|
|00005500| d6 08 5c 22 ab 8b c9 0e | 11 d3 48 d7 08 51 21 16 |..\"....|..H..Q!.|
|00005510| 5c 6e d8 0e 15 21 ab 8a | 0e 15 0e 5c 6e 0e 11 5c |\n...!..|...\n..\|
|00005520| 22 88 aa 95 d9 da 0e 5c | 6e d3 48 ae 84 0e 11 d3 |"......\|n.H.....|
|00005530| 48 5c 22 88 db 0e 5c 6e | 0e 11 5c 22 88 dc 0e 5c |H\"...\n|..\"...\|
|00005540| 6e 21 2c 87 22 20 5b 75 | 72 6c 20 6d 61 70 63 6f |n!,." [u|rl mapco|
|00005550| 6e 63 61 74 20 23 5b 28 | 78 29 20 22 08 c1 73 ab |ncat #[(|x) "..s.|
|00005560| 82 c2 87 c3 08 21 87 22 | 20 5b 78 20 28 3f 5c 20 |.....!."| [x (?\ |
|00005570| 20 3f 5c 6e 20 3f 5c 72 | 29 20 22 22 20 63 68 61 | ?\n ?\r|) "" cha|
|00005580| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 5d 20 32 5d 20 |r-to-str|ing] 2] |
|00005590| 75 72 6c 2d 73 74 72 69 | 70 2d 6c 65 61 64 69 6e |url-stri|p-leadin|
|000055a0| 67 2d 73 70 61 63 65 73 | 20 75 72 6c 2d 65 61 74 |g-spaces| url-eat|
|000055b0| 2d 74 72 61 69 6c 69 6e | 67 2d 73 70 61 63 65 20 |-trailin|g-space |
|000055c0| 22 22 20 6e 69 6c 20 73 | 74 72 69 6e 67 2d 6d 61 |"" nil s|tring-ma|
|000055d0| 74 63 68 20 22 5e 23 22 | 20 75 72 6c 2d 67 65 6e |tch "^#"| url-gen|
|000055e0| 65 72 69 63 2d 70 61 72 | 73 65 2d 75 72 6c 20 75 |eric-par|se-url u|
|000055f0| 72 6c 6f 62 6a 20 74 20 | 69 6e 68 69 62 69 74 2d |rlobj t |inhibit-|
|00005600| 66 69 6c 65 2d 6e 61 6d | 65 2d 68 61 6e 64 6c 65 |file-nam|e-handle|
|00005610| 72 73 20 76 65 63 74 6f | 72 70 20 64 65 66 61 75 |rs vecto|rp defau|
|00005620| 6c 74 20 75 72 6c 2d 63 | 75 72 72 65 6e 74 2d 6f |lt url-c|urrent-o|
|00005630| 62 6a 65 63 74 20 75 72 | 6c 2d 76 69 65 77 2d 75 |bject ur|l-view-u|
|00005640| 72 6c 20 64 65 66 6f 62 | 6a 20 61 73 73 6f 63 20 |rl defob|j assoc |
|00005650| 30 20 75 72 6c 2d 72 65 | 67 69 73 74 65 72 65 64 |0 url-re|gistered|
|00005660| 2d 70 72 6f 74 6f 63 6f | 6c 73 20 65 78 70 61 6e |-protoco|ls expan|
|00005670| 64 65 72 20 22 5e 2f 2f | 22 20 22 3a 22 20 66 62 |der "^//|" ":" fb|
|00005680| 6f 75 6e 64 70 20 6d 65 | 73 73 61 67 65 20 22 55 |oundp me|ssage "U|
|00005690| 6e 6b 6e 6f 77 6e 20 55 | 52 4c 20 73 63 68 65 6d |nknown U|RL schem|
|000056a0| 65 3a 20 25 73 22 20 75 | 72 6c 2d 69 64 65 6e 74 |e: %s" u|rl-ident|
|000056b0| 69 74 79 2d 65 78 70 61 | 6e 64 65 72 20 75 72 6c |ity-expa|nder url|
|000056c0| 2d 72 65 63 72 65 61 74 | 65 2d 75 72 6c 5d 20 35 |-recreat|e-url] 5|
|000056d0| 20 28 23 24 20 2e 20 32 | 31 33 30 32 29 5d 29 0a | (#$ . 2|1302)]).|
|000056e0| 28 64 65 66 61 6c 69 61 | 73 20 27 75 72 6c 2d 64 |(defalia|s 'url-d|
|000056f0| 65 66 61 75 6c 74 2d 65 | 78 70 61 6e 64 65 72 20 |efault-e|xpander |
|00005700| 23 5b 28 75 72 6c 6f 62 | 6a 20 64 65 66 6f 62 6a |#[(urlob|j defobj|
|00005710| 29 20 22 08 c1 08 c1 48 | ae 83 5c 6e c1 48 49 88 |) "....H|..\n.HI.|
|00005720| 08 c3 08 c3 48 ae aa 08 | c4 48 ab 8a c5 08 c1 48 |....H...|.H.....H|
|00005730| 0e 06 5c 22 a3 ae 9b 08 | c1 48 5c 6e c1 48 98 ad |..\"....|.H\n.H..|
|00005740| 92 5c 6e c3 48 ae 8d 5c | 6e c4 48 ad 88 c5 5c 6e |.\n.H..\|n.H...\n|
|00005750| c1 48 0e 06 5c 22 a3 49 | 88 08 c1 48 c7 98 ac 8c |.H..\".I|...H....|
|00005760| 08 c8 08 c8 48 ae 83 5c | 6e c8 48 49 88 08 c1 48 |....H..\|n.HI...H|
|00005770| c9 98 ab 8c 08 ca 08 ca | 48 ae 83 5c 6e ca 48 49 |........|H..\n.HI|
|00005780| 88 08 cb 48 cc 98 ab 85 | 08 cb cd 49 88 ce cf 08 |...H....|...I....|
|00005790| cb 48 5c 22 3f ad 8e 08 | cb d0 d1 5c 6e cb 48 21 |.H\"?...|...\n.H!|
|000057a0| 08 cb 48 50 21 49 87 22 | 20 5b 75 72 6c 6f 62 6a |..HP!I."| [urlobj|
|000057b0| 20 30 20 64 65 66 6f 62 | 6a 20 34 20 38 20 61 73 | 0 defob|j 4 8 as|
|000057c0| 73 6f 63 20 75 72 6c 2d | 64 65 66 61 75 6c 74 2d |soc url-|default-|
|000057d0| 70 6f 72 74 73 20 22 66 | 69 6c 65 22 20 33 20 22 |ports "f|ile" 3 "|
|000057e0| 66 74 70 22 20 31 20 35 | 20 22 22 20 22 2f 22 20 |ftp" 1 5| "" "/" |
|000057f0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 2f |string-m|atch "^/|
|00005800| 22 20 75 72 6c 2d 72 65 | 6d 6f 76 65 2d 72 65 6c |" url-re|move-rel|
|00005810| 61 74 69 76 65 2d 6c 69 | 6e 6b 73 20 75 72 6c 2d |ative-li|nks url-|
|00005820| 62 61 73 65 70 61 74 68 | 5d 20 36 5d 29 0a 28 64 |basepath|] 6]).(d|
|00005830| 65 66 61 6c 69 61 73 20 | 27 75 72 6c 2d 69 64 65 |efalias |'url-ide|
|00005840| 6e 74 69 74 79 2d 65 78 | 70 61 6e 64 65 72 20 23 |ntity-ex|pander #|
|00005850| 5b 28 75 72 6c 6f 62 6a | 20 64 65 66 6f 62 6a 29 |[(urlobj| defobj)|
|00005860| 20 22 08 c1 08 c1 48 ae | 83 5c 6e c1 48 49 87 22 | "....H.|.\n.HI."|
|00005870| 20 5b 75 72 6c 6f 62 6a | 20 30 20 64 65 66 6f 62 | [urlobj| 0 defob|
|00005880| 6a 5d 20 34 5d 29 0a 23 | 40 31 37 31 20 41 20 6c |j] 4]).#|@171 A l|
|00005890| 69 73 74 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ist of c|haracter|
|000058a0| 73 20 74 68 61 74 20 61 | 72 65 20 5f 4e 4f 54 5f |s that a|re _NOT_|
|000058b0| 20 72 65 73 65 72 76 65 | 20 69 6e 20 74 68 65 20 | reserve| in the |
|000058c0| 55 52 4c 20 73 70 65 63 | 2e 0a 54 68 69 73 20 69 |URL spec|..This i|
|000058d0| 73 20 74 61 6b 65 6e 20 | 66 72 6f 6d 20 64 72 61 |s taken |from dra|
|000058e0| 66 74 2d 66 69 65 6c 64 | 69 6e 67 2d 75 72 6c 2d |ft-field|ing-url-|
|000058f0| 73 79 6e 74 61 78 2d 30 | 32 2e 74 78 74 20 2d 20 |syntax-0|2.txt - |
|00005900| 63 68 65 63 6b 20 79 6f | 75 72 20 6c 6f 63 61 6c |check yo|ur local|
|00005910| 0a 69 6e 74 65 72 6e 65 | 74 20 64 72 61 66 74 73 |.interne|t drafts|
|00005920| 20 64 69 72 65 63 74 6f | 72 79 20 66 6f 72 20 61 | directo|ry for a|
|00005930| 20 63 6f 70 79 2e 1f 0a | 28 64 65 66 63 6f 6e 73 | copy...|(defcons|
|00005940| 74 20 75 72 6c 2d 75 6e | 72 65 73 65 72 76 65 64 |t url-un|reserved|
|00005950| 2d 63 68 61 72 73 20 27 | 28 3f 61 20 3f 62 20 3f |-chars '|(?a ?b ?|
|00005960| 63 20 3f 64 20 3f 65 20 | 3f 66 20 3f 67 20 3f 68 |c ?d ?e |?f ?g ?h|
|00005970| 20 3f 69 20 3f 6a 20 3f | 6b 20 3f 6c 20 3f 6d 20 | ?i ?j ?|k ?l ?m |
|00005980| 3f 6e 20 3f 6f 20 3f 70 | 20 3f 71 20 3f 72 20 3f |?n ?o ?p| ?q ?r ?|
|00005990| 73 20 3f 74 20 3f 75 20 | 3f 76 20 3f 77 20 3f 78 |s ?t ?u |?v ?w ?x|
|000059a0| 20 3f 79 20 3f 7a 20 3f | 41 20 3f 42 20 3f 43 20 | ?y ?z ?|A ?B ?C |
|000059b0| 3f 44 20 3f 45 20 3f 46 | 20 3f 47 20 3f 48 20 3f |?D ?E ?F| ?G ?H ?|
|000059c0| 49 20 3f 4a 20 3f 4b 20 | 3f 4c 20 3f 4d 20 3f 4e |I ?J ?K |?L ?M ?N|
|000059d0| 20 3f 4f 20 3f 50 20 3f | 51 20 3f 52 20 3f 53 20 | ?O ?P ?|Q ?R ?S |
|000059e0| 3f 54 20 3f 55 20 3f 56 | 20 3f 57 20 3f 58 20 3f |?T ?U ?V| ?W ?X ?|
|000059f0| 59 20 3f 5a 20 3f 30 20 | 3f 31 20 3f 32 20 3f 33 |Y ?Z ?0 |?1 ?2 ?3|
|00005a00| 20 3f 34 20 3f 35 20 3f | 36 20 3f 37 20 3f 38 20 | ?4 ?5 ?|6 ?7 ?8 |
|00005a10| 3f 39 20 3f 5c 24 20 3f | 5c 2d 20 3f 5c 5f 20 3f |?9 ?\$ ?|\- ?\_ ?|
|00005a20| 5c 2e 20 3f 5c 21 20 3f | 5c 7e 20 3f 5c 2a 20 3f |\. ?\! ?|\~ ?\* ?|
|00005a30| 5c 27 20 3f 5c 28 20 3f | 5c 29 20 3f 5c 2c 29 20 |\' ?\( ?|\) ?\,) |
|00005a40| 28 23 24 20 2e 20 32 32 | 36 36 39 29 29 0a 23 40 |(#$ . 22|669)).#@|
|00005a50| 33 31 20 45 73 63 61 70 | 65 20 63 68 61 72 61 63 |31 Escap|e charac|
|00005a60| 74 65 72 73 20 69 6e 20 | 61 20 73 74 72 69 6e 67 |ters in |a string|
|00005a70| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |..(defal|ias 'url|
|00005a80| 2d 68 65 78 69 66 79 2d | 73 74 72 69 6e 67 20 23 |-hexify-|string #|
|00005a90| 5b 28 73 74 72 29 20 22 | c0 c1 c2 0b 21 c4 23 87 |[(str) "|....!.#.|
|00005aa0| 22 20 5b 6d 61 70 63 6f | 6e 63 61 74 20 23 5b 28 |" [mapco|ncat #[(|
|00005ab0| 63 68 61 72 29 20 22 08 | 09 73 ac 91 08 c2 57 ab |char) ".|.s....W.|
|00005ac0| 86 c3 c4 08 5c 22 96 87 | c3 c5 08 5c 22 96 87 c6 |....\"..|...\"...|
|00005ad0| 08 21 87 22 20 5b 63 68 | 61 72 20 75 72 6c 2d 75 |.!." [ch|ar url-u|
|00005ae0| 6e 72 65 73 65 72 76 65 | 64 2d 63 68 61 72 73 20 |nreserve|d-chars |
|00005af0| 31 36 20 66 6f 72 6d 61 | 74 20 22 25 25 30 25 78 |16 forma|t "%%0%x|
|00005b00| 22 20 22 25 25 25 78 22 | 20 63 68 61 72 2d 74 6f |" "%%%x"| char-to|
|00005b10| 2d 73 74 72 69 6e 67 5d | 20 33 5d 20 6d 75 6c 65 |-string]| 3] mule|
|00005b20| 2d 64 65 63 6f 64 65 2d | 73 74 72 69 6e 67 20 73 |-decode-|string s|
|00005b30| 74 72 20 22 22 5d 20 34 | 20 28 23 24 20 2e 20 32 |tr ""] 4| (#$ . 2|
|00005b40| 33 31 32 33 29 5d 29 0a | 23 40 35 33 20 4d 61 6b |3123)]).|#@53 Mak|
|00005b50| 65 20 61 20 73 65 71 75 | 65 6e 63 65 20 28 6c 69 |e a sequ|ence (li|
|00005b60| 73 74 29 20 6f 66 20 6e | 75 6d 62 65 72 73 20 66 |st) of n|umbers f|
|00005b70| 72 6f 6d 20 53 54 41 52 | 54 20 74 6f 20 45 4e 44 |rom STAR|T to END|
|00005b80| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |..(defal|ias 'url|
|00005b90| 2d 6d 61 6b 65 2d 73 65 | 71 75 65 6e 63 65 20 23 |-make-se|quence #|
|00005ba0| 5b 28 73 74 61 72 74 20 | 65 6e 64 29 20 22 08 09 |[(start |end) "..|
|00005bb0| 55 ab 82 c2 87 08 09 56 | ab 82 c2 87 c2 1b 08 09 |U......V|........|
|00005bc0| 58 ab 89 09 0b 42 13 09 | 53 11 aa 72 0b 29 87 22 |X....B..|S..r.)."|
|00005bd0| 20 5b 73 74 61 72 74 20 | 65 6e 64 20 6e 69 6c 20 | [start |end nil |
|00005be0| 73 71 6e 63 5d 20 32 20 | 28 23 24 20 2e 20 32 33 |sqnc] 2 |(#$ . 23|
|00005bf0| 33 37 33 29 5d 29 0a 23 | 40 31 34 31 20 52 65 74 |373)]).#|@141 Ret|
|00005c00| 75 72 6e 20 74 68 65 20 | 66 69 6c 65 6e 61 6d 65 |urn the |filename|
|00005c10| 20 65 78 74 65 6e 73 69 | 6f 6e 20 6f 66 20 46 4e | extensi|on of FN|
|00005c20| 41 4d 45 2e 20 20 49 66 | 20 6f 70 74 69 6f 6e 61 |AME. If| optiona|
|00005c30| 6c 20 76 61 72 69 61 62 | 6c 65 20 58 20 69 73 20 |l variab|le X is |
|00005c40| 74 2c 0a 74 68 65 6e 20 | 72 65 74 75 72 6e 20 74 |t,.then |return t|
|00005c50| 68 65 20 62 61 73 65 6e | 61 6d 65 20 6f 66 20 74 |he basen|ame of t|
|00005c60| 68 65 20 66 69 6c 65 20 | 77 69 74 68 20 74 68 65 |he file |with the|
|00005c70| 20 65 78 74 65 6e 73 69 | 6f 6e 20 73 74 72 69 70 | extensi|on strip|
|00005c80| 70 65 64 20 6f 66 66 2e | 1f 0a 28 64 65 66 61 6c |ped off.|..(defal|
|00005c90| 69 61 73 20 27 75 72 6c | 2d 66 69 6c 65 2d 65 78 |ias 'url|-file-ex|
|00005ca0| 74 65 6e 73 69 6f 6e 20 | 23 5b 28 66 6e 61 6d 65 |tension |#[(fname|
|00005cb0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 78 29 20 22 08 | &option|al x) ".|
|00005cc0| ab 95 c1 c2 08 5c 22 ab | 8f 0b ab 86 08 c4 89 94 |.....\".|........|
|00005cd0| 4f 87 08 c4 94 c5 4f 87 | 0b ab 82 08 87 c6 87 22 |O.....O.|......."|
|00005ce0| 20 5b 66 6e 61 6d 65 20 | 73 74 72 69 6e 67 2d 6d | [fname |string-m|
|00005cf0| 61 74 63 68 20 22 5c 5c | 2e 5b 5e 2e 2f 5d 2b 24 |atch "\\|.[^./]+$|
|00005d00| 22 20 78 20 30 20 6e 69 | 6c 20 22 22 5d 20 33 20 |" x 0 ni|l ""] 3 |
|00005d10| 28 23 24 20 2e 20 32 33 | 35 34 39 29 5d 29 0a 23 |(#$ . 23|549)]).#|
|00005d20| 40 37 31 20 52 65 74 75 | 72 6e 20 74 68 65 20 62 |@71 Retu|rn the b|
|00005d30| 61 73 65 20 70 61 74 68 | 6e 61 6d 65 20 6f 66 20 |ase path|name of |
|00005d40| 46 49 4c 45 2c 20 6f 72 | 20 74 68 65 20 61 63 74 |FILE, or| the act|
|00005d50| 75 61 6c 20 66 69 6c 65 | 6e 61 6d 65 20 69 66 20 |ual file|name if |
|00005d60| 58 20 69 73 20 74 72 75 | 65 1f 0a 28 64 65 66 61 |X is tru|e..(defa|
|00005d70| 6c 69 61 73 20 27 75 72 | 6c 2d 62 61 73 65 70 61 |lias 'ur|l-basepa|
|00005d80| 74 68 20 23 5b 28 66 69 | 6c 65 20 26 6f 70 74 69 |th #[(fi|le &opti|
|00005d90| 6f 6e 61 6c 20 78 29 20 | 22 08 ac 82 c1 87 5c 6e |onal x) |".....\n|
|00005da0| ab 84 c3 08 21 87 c4 08 | 21 87 22 20 5b 66 69 6c |....!...|!." [fil|
|00005db0| 65 20 22 22 20 78 20 66 | 69 6c 65 2d 6e 61 6d 65 |e "" x f|ile-name|
|00005dc0| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 66 69 |-nondire|ctory fi|
|00005dd0| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00005de0| 79 5d 20 32 20 28 23 24 | 20 2e 20 32 33 38 34 34 |y] 2 (#$| . 23844|
|00005df0| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |)]).(def|alias 'u|
|00005e00| 72 6c 2d 70 61 72 73 65 | 2d 71 75 65 72 79 2d 73 |rl-parse|-query-s|
|00005e10| 74 72 69 6e 67 20 23 5b | 28 71 75 65 72 79 20 26 |tring #[|(query &|
|00005e20| 6f 70 74 69 6f 6e 61 6c | 20 64 6f 77 6e 63 61 73 |optional| downcas|
|00005e30| 65 29 20 22 c0 89 89 89 | 89 19 1a 1b 1c 1d c6 0e |e) "....|........|
|00005e40| 07 c8 5c 22 14 0c ab bc | 0c 40 13 0c 41 14 c9 ca |..\"....|.@..A...|
|00005e50| 0b 5c 22 ab 71 cb 0b cc | 89 94 4f 21 12 cb 0b cc |.\".q...|..O!....|
|00005e60| 95 c0 4f 21 11 0e 0d ab | 83 5c 6e 97 12 ce 5c 6e |..O!....|.\n...\n|
|00005e70| 0d 5c 22 89 13 ab 89 0b | 09 0b 41 42 a1 88 aa 49 |.\".....|..AB...I|
|00005e80| 5c 6e 09 44 0d 42 15 aa | 41 0d 2d 87 22 20 5b 6e |\n.D.B..|A.-." [n|
|00005e90| 69 6c 20 76 61 6c 20 6b | 65 79 20 63 75 72 20 70 |il val k|ey cur p|
|00005ea0| 61 69 72 73 20 72 65 74 | 76 61 6c 20 73 70 6c 69 |airs ret|val spli|
|00005eb0| 74 2d 73 74 72 69 6e 67 | 20 71 75 65 72 79 20 22 |t-string| query "|
|00005ec0| 26 22 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |&" strin|g-match |
|00005ed0| 22 3d 22 20 75 72 6c 2d | 75 6e 68 65 78 2d 73 74 |"=" url-|unhex-st|
|00005ee0| 72 69 6e 67 20 30 20 64 | 6f 77 6e 63 61 73 65 20 |ring 0 d|owncase |
|00005ef0| 61 73 73 6f 63 5d 20 36 | 5d 29 0a 28 64 65 66 61 |assoc] 6|]).(defa|
|00005f00| 6c 69 61 73 20 27 75 72 | 6c 2d 75 6e 68 65 78 20 |lias 'ur|l-unhex |
|00005f10| 23 5b 28 78 29 20 22 08 | c1 56 ab 91 08 c2 59 ab |#[(x) ".|.V....Y.|
|00005f20| 86 08 c2 5a c3 5c 5c 87 | 08 c4 5a c3 5c 5c 87 08 |...Z.\\.|..Z.\\..|
|00005f30| c5 5a 87 22 20 5b 78 20 | 3f 39 20 3f 61 20 31 30 |.Z." [x |?9 ?a 10|
|00005f40| 20 3f 41 20 3f 30 5d 20 | 32 5d 29 0a 23 40 32 31 | ?A ?0] |2]).#@21|
|00005f50| 38 20 52 65 6d 6f 76 65 | 20 25 58 58 58 20 65 6d |8 Remove| %XXX em|
|00005f60| 62 65 64 64 65 64 20 73 | 70 61 63 65 73 2c 20 65 |bedded s|paces, e|
|00005f70| 74 63 20 69 6e 20 61 20 | 75 72 6c 2e 0a 49 66 20 |tc in a |url..If |
|00005f80| 6f 70 74 69 6f 6e 61 6c | 20 73 65 63 6f 6e 64 20 |optional| second |
|00005f90| 61 72 67 75 6d 65 6e 74 | 20 41 4c 4c 4f 57 2d 4e |argument| ALLOW-N|
|00005fa0| 45 57 4c 49 4e 45 53 20 | 69 73 20 6e 6f 6e 2d 6e |EWLINES |is non-n|
|00005fb0| 69 6c 2c 20 74 68 65 6e | 20 61 6c 6c 6f 77 20 74 |il, then| allow t|
|00005fc0| 68 65 0a 64 65 63 6f 64 | 69 6e 67 20 6f 66 20 63 |he.decod|ing of c|
|00005fd0| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 73 20 |arriage |returns |
|00005fe0| 61 6e 64 20 6c 69 6e 65 | 20 66 65 65 64 73 20 69 |and line| feeds i|
|00005ff0| 6e 20 74 68 65 20 73 74 | 72 69 6e 67 2c 20 77 68 |n the st|ring, wh|
|00006000| 69 63 68 20 69 73 20 6e | 6f 72 6d 61 6c 6c 79 0a |ich is n|ormally.|
|00006010| 66 6f 72 62 69 64 64 65 | 6e 20 69 6e 20 55 52 4c |forbidde|n in URL|
|00006020| 20 65 6e 63 6f 64 69 6e | 67 2e 1f 0a 28 64 65 66 | encodin|g...(def|
|00006030| 61 6c 69 61 73 20 27 75 | 72 6c 2d 75 6e 68 65 78 |alias 'u|rl-unhex|
|00006040| 2d 73 74 72 69 6e 67 20 | 23 5b 28 73 74 72 20 26 |-string |#[(str &|
|00006050| 6f 70 74 69 6f 6e 61 6c | 20 61 6c 6c 6f 77 2d 6e |optional| allow-n|
|00006060| 65 77 6c 69 6e 65 73 29 | 20 22 08 ae 81 c1 10 c1 |ewlines)| "......|
|00006070| c2 1b 1c c5 c6 08 5c 22 | ab c9 c7 94 1e 08 c9 08 |......\"|........|
|00006080| 0e 08 54 9c 21 89 1e 5c | 6e cb 5f c9 08 0e 08 cc |..T.!..\|n._.....|
|00006090| 5c 5c 9c 21 5c 5c 1e 0d | 0c 08 c7 0e 08 4f 0e 0e |\\.!\\..|.....O..|
|000060a0| ab 86 cf 0e 0d 21 aa 93 | 0e 0d d0 55 ac 86 0e 0d |.....!..|...U....|
|000060b0| d1 55 ab 83 d2 aa 84 cf | 0e 0d 21 51 14 08 c7 95 |.U......|..!Q....|
|000060c0| d3 4f 10 2b aa 31 0c 08 | 50 89 14 2a 87 22 20 5b |.O.+.1..|P..*." [|
|000060d0| 73 74 72 20 22 22 20 74 | 20 63 61 73 65 2d 66 6f |str "" t| case-fo|
|000060e0| 6c 64 2d 73 65 61 72 63 | 68 20 74 6d 70 20 73 74 |ld-searc|h tmp st|
|000060f0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 25 5b 30 2d |ring-mat|ch "%[0-|
|00006100| 39 61 2d 66 5d 5b 30 2d | 39 61 2d 66 5d 22 20 30 |9a-f][0-|9a-f]" 0|
|00006110| 20 73 74 61 72 74 20 75 | 72 6c 2d 75 6e 68 65 78 | start u|rl-unhex|
|00006120| 20 63 68 31 20 31 36 20 | 32 20 63 6f 64 65 20 61 | ch1 16 |2 code a|
|00006130| 6c 6c 6f 77 2d 6e 65 77 | 6c 69 6e 65 73 20 63 68 |llow-new|lines ch|
|00006140| 61 72 2d 74 6f 2d 73 74 | 72 69 6e 67 20 3f 5c 6e |ar-to-st|ring ?\n|
|00006150| 20 3f 5c 72 20 22 20 22 | 20 6e 69 6c 5d 20 36 20 | ?\r " "| nil] 6 |
|00006160| 28 23 24 20 2e 20 32 34 | 34 30 32 29 5d 29 0a 28 |(#$ . 24|402)]).(|
|00006170| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 72 65 |defalias| 'url-re|
|00006180| 6d 6f 76 65 2d 63 6f 6d | 70 72 65 73 73 65 64 2d |move-com|pressed-|
|00006190| 65 78 74 65 6e 73 69 6f | 6e 73 20 23 5b 28 66 69 |extensio|ns #[(fi|
|000061a0| 6c 65 6e 61 6d 65 29 20 | 22 c0 c1 5c 6e 21 0b 5c |lename) |"..\n!.\|
|000061b0| 22 ab 87 c1 5c 6e c4 5c | 22 12 aa 71 5c 6e 87 22 |"...\n.\|"..q\n."|
|000061c0| 20 5b 61 73 73 6f 63 20 | 75 72 6c 2d 66 69 6c 65 | [assoc |url-file|
|000061d0| 2d 65 78 74 65 6e 73 69 | 6f 6e 20 66 69 6c 65 6e |-extensi|on filen|
|000061e0| 61 6d 65 20 75 72 6c 2d | 75 6e 63 6f 6d 70 72 65 |ame url-|uncompre|
|000061f0| 73 73 6f 72 2d 61 6c 69 | 73 74 20 74 5d 20 33 5d |ssor-ali|st t] 3]|
|00006200| 29 0a 23 40 35 36 20 44 | 6f 20 61 6e 79 20 6e 65 |).#@56 D|o any ne|
|00006210| 63 65 73 73 61 72 79 20 | 75 6e 63 6f 6d 70 72 65 |cessary |uncompre|
|00006220| 73 73 69 6f 6e 20 6f 6e | 20 60 75 72 6c 2d 77 6f |ssion on| `url-wo|
|00006230| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 27 1f 0a 28 |rking-bu|ffer'..(|
|00006240| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 75 6e |defalias| 'url-un|
|00006250| 63 6f 6d 70 72 65 73 73 | 20 23 5b 6e 69 6c 20 22 |compress| #[nil "|
|00006260| 08 71 88 09 ac a5 c2 1b | c4 c5 0e 06 5c 22 a3 1e |.q......|....\"..|
|00006270| 07 c4 c8 0e 06 5c 22 a3 | 1e 09 c2 1e 5c 6e 0e 0b |.....\".|....\n..|
|00006280| 89 42 1e 0c cd ce 0e 07 | 0e 09 44 5c 22 88 2d cf |.B......|..D\".-.|
|00006290| c2 21 87 22 20 5b 75 72 | 6c 2d 77 6f 72 6b 69 6e |.!." [ur|l-workin|
|000062a0| 67 2d 62 75 66 66 65 72 | 20 75 72 6c 2d 69 6e 68 |g-buffer| url-inh|
|000062b0| 69 62 69 74 2d 75 6e 63 | 6f 6d 70 72 65 73 73 69 |ibit-unc|ompressi|
|000062c0| 6f 6e 20 6e 69 6c 20 64 | 65 63 6f 64 65 72 20 61 |on nil d|ecoder a|
|000062d0| 73 73 6f 63 20 22 63 6f | 6e 74 65 6e 74 2d 74 72 |ssoc "co|ntent-tr|
|000062e0| 61 6e 73 66 65 72 2d 65 | 6e 63 6f 64 69 6e 67 22 |ansfer-e|ncoding"|
|000062f0| 20 75 72 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 69 6d | url-cur|rent-mim|
|00006300| 65 2d 68 65 61 64 65 72 | 73 20 63 6f 64 65 2d 31 |e-header|s code-1|
|00006310| 20 22 63 6f 6e 74 65 6e | 74 2d 65 6e 63 6f 64 69 | "conten|t-encodi|
|00006320| 6e 67 22 20 63 6f 64 65 | 2d 32 20 64 6f 6e 65 20 |ng" code|-2 done |
|00006330| 6d 75 6c 65 2d 6e 6f 2d | 63 6f 64 69 6e 67 2d 73 |mule-no-|coding-s|
|00006340| 79 73 74 65 6d 20 64 65 | 66 61 75 6c 74 2d 70 72 |ystem de|fault-pr|
|00006350| 6f 63 65 73 73 2d 63 6f | 64 69 6e 67 2d 73 79 73 |ocess-co|ding-sys|
|00006360| 74 65 6d 20 6d 61 70 63 | 61 72 20 23 5b 28 63 6f |tem mapc|ar #[(co|
|00006370| 64 65 29 20 22 08 09 b6 | 3f ad 85 c2 08 0b 5c 22 |de) "...|?.....\"|
|00006380| a3 14 08 09 42 11 0c ad | c2 c5 c6 08 5c 22 88 0c |....B...|....\"..|
|00006390| 3b ab 8c c7 65 64 0c c8 | 89 c9 26 06 88 aa a9 0c |;...ed..|..&.....|
|000063a0| 3c ab 90 ca c7 65 64 0c | 40 c8 89 c9 0c 41 26 08 |<....ed.|@....A&.|
|000063b0| 88 aa 95 0c 39 ab 8c cb | 0c 21 ab 87 0c 65 64 5c |....9...|.!...ed\|
|000063c0| 22 88 aa 85 cc cd 08 5c | 22 88 c5 ce 08 5c 22 87 |"......\|"....\".|
|000063d0| 22 20 5b 63 6f 64 65 20 | 64 6f 6e 65 20 61 73 73 |" [code |done ass|
|000063e0| 6f 63 20 6d 6d 2d 63 6f | 6e 74 65 6e 74 2d 74 72 |oc mm-co|ntent-tr|
|000063f0| 61 6e 73 66 65 72 2d 65 | 6e 63 6f 64 69 6e 67 73 |ansfer-e|ncodings|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
